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TECHNICAL  REPORT  SUMMARY 
FIBER  OPTICS  DESIGN  AID  PACKAGE 

This  study  Final  Report  provides  documentation  for  a Fiber  Optics  Design  Aid 
Package  (FODAP).  FODAP  is  intended  to  be  a supplement  to  the  RADC-Sponsored  Optical 
Cable  Communications  Study  (Contract  Number  F306Q2-74-C-0193).  It  provides  the 
designer  of  optical  fiber  communications  systems  a method  to  facilitate  his  design  proce- 
dures. This  report  consists  mainly  of  a User's  Guide  to  the  FODAP  computer  software. 

This  guide  contains  sections  which  discuss  data  definition  and  entry,  FODAP  module 
descriptions,  a description  of  FODAP  module  interactions,  a description  of  miscellaneous 
command  statements,  execution  instructions.  Also  included  is  an  input/output  variable 
dictionary  and  a run  listing.  The  User's  Guide  is  supplemented  by  a Design  Handbook 
which  summarizes  the  design  conditions  and  equations  used  in  FODAP.  Also  included  in 
the  report  is  a section  containing  a series  of  design  curves  generated  using  the  FODAP 
software.  These  curves  can  be  used  to  examine  trade-offs  at  the  component  or  systems 


level . 
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EVALUATION 


This  effort  has  provided  a computer  based  program  that  will  allow  a 
communication  system  designer  to  analyze  fiber  optic  communication  links 
at  either  a system  level  or  component  level.  This  effort  is  based  on  a 
previous  RADC  effort  titled  "Optical  Cable  Communications  Study"  under 
which  a graphical  design  package  was  developed  for  fiber  optic  analysis. 

The  present  program  computerized  and  updated  those  results  so  that  the 
fiber  optic  link  designer  will  be  able  to  perform  tradeoffs  and  parameter 
optimization  in  an  efficient  manner. 

The  design  tool  developed  under  this  program  will  aid  in  providing  the 
fiber  optic  technology  update  for  the  services. 


PAUL  F.  SIERAK 
Project  Engineer 
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INTRODUCTION 


This  document  is  a result  of  a nine-month  program  of  study  (Contract  Number 
F30602-76-C-0246)  conducted  by  Harris  Corporation's  Electronic  Systems  Division  for  the 
Rome  Air  Development  Center.  The  objective  of  this  study  was  to  supplement  the  RADC 
sponsored  Optical  Cable  Communications  Study  (F30602-74-C-0193)  with  a Fiber  Optics 
Design  Aid  Package  (FODAP)  to  facilitate  the  design  of  optical  fiber  communications 
systems.  This  package  consists  of  a design  handbook  which  outlines  the  procedures  used  in 
optical  fiber  systems  design,  a user's  guide  to  the  computer  software  used  in  the  study  and 
a series  of  design  curves  generated  using  the  FODAP  software. 

In  order  to  make  FODAP  most  useful  to  the  systems  designer,  this  report  has 
been  partitioned  into  three  sections.  Section  2 consists  of  a design  handbook.  In  this 
secMon,  the  design  philoiosphy  and  design  procedures  used  in  FODAP  are  outlined. 
Terminology  is  also  presented  and  the  design  equations  are  summarized.  Section  3 
contains  a user's  guide  to  the  computer  software.  It  explains  the  procedures  for  operating 
FODAP  including  file  maintenance,  execution  of  the  modules  and  subroutines  which 
FODAP  contains,  input  data  requirements,  data  definition  libraries  and  examples.  Section 
4 contains  a compilation  of  design  curves  which  are  the  useful  final  output  of  FODAP. 
These  curves  can  be  used  by  the  systems  engineer  to  design  the  individual  system  compo- 
nents such  as  the  transmitter,  receiver  and  fiber  cable;  or  they  can  be  used  to  design  total 
systems  using  general  classes  of  component  types. 
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2.0 


DESIGN  HANDBOOK  FOR  FODAP 


2.1  Introduction 

To  make  the  best  use  of  FODAP,  the  designer  should  have  a working  knowl- 
edge of  the  design  philosophy  and  terminology  used  in  constructing  the  computer  software 
associated  with  FODAP.  Such  a knowledge  will  allow  the  designer  to  interpret  the  results 
and  better  understand  the  component- 1 eve  I and  systems-level  design  tradeoffs.  This 
section  is  intended  to  serve  as  such  an  introduction. 

In  FODAP,  the  design  of  an  optical  fiber  communications  system  is  done  at 
two  levels.  One  may  design  at  the  individual  component  level,  i.e.,  one  may  design 
transmitters,  receivers  or  select  fiber  type.  Or,  because  of  the  interaction  of  components 
in  an  optical  fiber  link,  one  may  design  at  the  system  level.  In  the  sections  that  follow, 
the  design  approach,  including  equations  and  terminology  is  explained  for  each  level  of 
design.  In  particular,  the  information  pertaining  to  receiver  design  is  discussed  in  Section 
2.2,  fiber  design  relations  are  discussed  in  Section  2.3,  Section  2.4  contains  the  trans- 
mitter design  information  and  Section  2.5  describes  the  system-level  design  information. 
Each  section  is  discussed  from  the  point  of  view  of  the  designer  who  is  using  FODAP. 

It  should  be  pointed  out  that  the  information  contained  in  this  section  is 
intended  to  be  a summary  of  design  information.  Details  such  as  the  derivation  of  design 
equations  are  beyond  the  scope  of  this  work.  For  such  information,  the  reader  is  referred 
to  the  Optical  Cable  Communications  Study^  which  was  mentioned  earlier. 


2.2  Receiver  Analysis 

It  is  possible  to  configure  a number  of  different  fiber  optic  communication 
systems  using  a variety  of  optical  and  electrical  modulation  techniques.  In  virtually  all 
practical  optical  cable  systems,  intensity  modulation  (IM)  of  the  optical  source  is  employed 
together  with  direct  detection  at  the  receiver.  Intensity  modulation  refers  to  varying  the 
average  (relative  to  an  optical  carrier  cycle)  output  power  of  the  optical  source  in 
proportion  to  an  electrical  stimulus,  e.g.,  the  drive  current  of  an  LED  or  ILD  may  be 
varied  to  cause  changes  in  the  optical  power  output.  Direct  detection  at  the  optical 
receiver  is  accomplished  through  the  use  of  a device  such  as  a photodiode  which  converts 
average  optical  power  (again  relative  to  an  optical  carrier  cycle)  to  an  electrical  signal. 

An  optical  source  may  be  intensity  modulated  in  either  continuous  (analog) 
or  discrete  (digital)  fashion,  depending  on  system  requirements.  The  electrical  signal 
which  modulates  the  optical  source  may,  in  term,  be  modulated  in  any  one  of  a number  of 
ways.  System  performance  (signal  reproduction  fidelity)  is  largely  determined  by  the  noise 
characteristics  of  the  optical  receivers  and  electrical  demodulators  used,  and  by  the 
response  of  the  optical  detector  to  the  incident  optical  signal . FODAP  is  capable  of 
theoretical  predictions  of  optical  receiver  performance  for  a number  of  modulation  types. 
This  capability  resides  in  the  Receiver  Analysis  Module  (RAM). 

FODAP  characterizes  modulation  types  according  to  whether  the  input 
information  signal  is  analog  or  digital  and  whether  the  input  signal  directly  intensity 
modulates  the  optical  source  or  first  undergoes  an  electrical  modulation.  Systems  in  which 
the  input  electrical  signal  directly  modulates  the  optical  source  are  called  baseband 
systems.  If  an  intermediate  electrical  modulation  is  used,  the  system  is  referred  to  as  a 
subcarrier  system. 

The  RAM  provides  FODAP  with  the  ability  to  predict  system  performance  in 
terms  of  output  signal-to-noise  ratio  (SNR)  for  analog  input  signals  and  output  bit  error 
rate  (BER)  for  digital  input  signals.  Then  performance  predictions  are  based  on  analytical 
expressions  which  were  derived  in  Reference  1 and  which  are  summarized  in  the  subsequent 
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paragraphs.  The  analog  transmission  formats  considered  are  baseband  analog  IM,  and  IM 

using  AM,  SSB-SC,  DSB-SC  or  FM  electrical  subcarriers.  The  digital  techniques  included 

in  FODAP  are  baseband  on-off  keying  (OOK),  baseband  binary  pulse-position  modulation 

(BPPM)  and  IM  using  FSKorPSK  electrical  subcarriers.  Other  modulation  schemes  which 

may  be  regarded  as  analog-digital  hybrids  have  been  studied  but  not  included  in  FODAP, 

2 3 .4 

e.g.,  analog  pulse-position  modulation  ' (PPM)  and  pulse  frequency  modulation  (PFM). 

While  analog  PPM  may  find  application  in  certain  specific  systems,  the  associated 

5 

implementation  complexity  and  system  criticality  precludes,  for  the  present  time  at  least, 
its  wide  spread  use.  Optical  PFM  appears  more  promising  and  doubtless  will  receive  more 
attention  in  the  future. 

In  the  paragraphs  which  follow  basic  receiver  parameters  are  defined  and 
the  mathematical  expressions  used  by  the  RAM  to  predict  receiver  performance  are 
summarized.  It  is  assumed  throughout  that  the  reader  has  an  understanding  of  standard 
electrical  modulation  and  demodulation  techniques  and  is  acquainted  with  the  basics  of 
optical  cable  communication  systems  using  direct  detection  optical  receivers. 

2.2.1  Assumed  Receiver  Structure  and  Parameter  Definitions 

The  receiver  structure  assumed  by  the  RAM  is  shown  in  Figure  2.2.1.  Optical- 
to-electrical  conversion  is  provided  by  a photodiode  which  produces  a photocurrent,  ip, 
proportional  to  the  intensity  of  the  impinging  optical  signal.  The  photocurrent  is  corrupted 
by  additive  noise,  iR,  which  is  conveniently  represented  as  being  referred  to  the  amplifier 
input.  The  amplifier  drives  an  electrical  demodulator  or  detector  appropriate  to  the 
modulation  format  chosen.  This  demodulator  may  be  as  simple  as  a noise  rejection  filter  in 
the  case  of  baseband  analog  IM  or  as  elaborate  as  an  FDM  demultiplexer  in  the  case  of  a 
system  using  multiple  electrical  subcarriers  to  intensity  modulate  the  optical  carrier. 
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Figure  2.2.1.  Receiver  Structure 


2-4 


Photodiode  parameters  required  by  the  RAM  are: 


i 


Unity  gain  responsivity  - r 
Avalanche  gain  - G 


Avalanche  gain  excess  noise  exponent  - 
Surface  (nonmultiplied)  leakage  current  - 1^ 
Bulk  (multiplied)  leakage  current  - 1^ 


This  photodiode  description  may  be  specialized  to  the  case  of  a PIN  photodiode  (no 
avalanche  gain)  by  setting  G = 1 and  1^  = 0.  The  value  used  for  a ^ in  such  a situation 
is  arbitrary. 

The  noise  current,  in,  is  made  up  of  several  components.  These  components 
are  contributed  by  the  photodiode,  the  amplifier  and  by  the  quantum  nature  of  the  received 
optical  signal  itself.  For  the  purpose  of  predicting  optical  receiver  performance,  the  noise 
contributions  are  generally  described  by  their  second  order  statistics,  namely  the  input- 
referred  mean-square  noise  currents.  The  major  noise  sources  considered  by  the  RAM  are: 


2 2+  a D 

Quantum  noise:  <'q>  = 2qrG  P^  b 


2+  a. 


2 “ “D 

Dark  current  shot  noise:  <‘q>  = 2qb(l^+G  1^) 


Input  referred  amplifier  noise:  < i^  > 


In  the  expressions  above 
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q = charge  on  an  electron  (1 .6  x 10  C) 

P^  = average  (long-term)  optical  carrier  power  incident  on  the 
photodiode 

b = noise-equivalent  bandwidth  of  the  optical  receiver  (or  receiver 
channel  in  the  case  of  an  FDM  system  using  multiple  electrical 
subcarriers) 
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There  are  as  many  expressions  for  the  amplifier  noise  current  as  there  are 

amplifier  designs.  For  this  reason  it  was  described  that  the  calculation  of  the  amplifier 

noise  performance  should  be  an  "outboard"  computation  to  FODAP.  As  a precautionary 

2 

note,  the  reader  is  reminded  that  < i^>  must  be  calculated  for  the  particular  bandwidth 
of  interest.  Some  amplifiers  for  fiber  optic  receivers  have  significant  non-white  noise 
components.  In  the  interest  of  computational  simplicity,  however,  some  of  the  RAM's 
analytical  expressions  are  based  on  the  assumption  that  the  noise  is  spectually  flat  over  the 
desired  bandwidth.  Therefore,  interpretation  of  RAM  results  should  be  tempered  with 
appreciation  of  these  simplifying  assumptions. 

Other  general  parameters  required  by  the  RAM  are: 

Intensity  modulation  index  - M 

Digital  data  rate  - R 

RMS  value  of  the  analog  signal  - v<  s^  > 

It  is  assumed  that  the  analog  signal  is  normalized  such  that 

| s(t)  J <1 

The  performance  measures  used  by  the  RAM  are  signal-to-noise  ratio  in  the 
case  of  analog  inputs  and  bit  error  rate  for  digital  inputs.  Signal-to-noise  ratio  is  defined 
as  the  ratio  of  mean-square  signal-to-mean-square  noise  as  measured  in  the  message  band- 
width at  the  receiver  output.  Bit  error  rate  is  just  the  probability  of  a bit  error  at  the 
receiver  output  assuming  equiprobable  occurrences  of  ONE's  and  ZERO'S  at  the  input. 

2.2.2  Performance  Equations 

The  paragraphs  which  follow  summarize  the  equations  used  by  the  RAM  to 
compute  receiver  performance. 
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2. 2. 2.1  Baseband  Analog  IM 

The  output  SNR  for  a direct  detection  fiber  optic  receiver  with  baseband 
analog  IM  input  is 


2<  2> 


SNR  = 


(MrGPR) 


<;Q>+  <iD  + KV 


The  noise  terms  are  defined  in  Section  2.2.1 . 


2. 2. 2. 2 Subcarrier  Analog  IM 


The  SNR  expressions  for  the  subcarrier  analog  IM  receivers  are: 


(MSCMarGV2  <s2> 

r 2 5 ’ 

2 <iQ>  + <!p>  + <iA> 


DSB-SC 


(MscrGV2  <s2> 

r 2 ~~2  2 * 

2 <iQ>  + <iD>  + <iA> 


SSB-SC 


(MscrGfy2  <s2> 

<ij>  + <£>  + <i?  > 


3 P2  (MS(.rGPR)2  <s2> 

*FM  2 + + <d>' 


In  Hie  above  expressions.  Hie  notation  is  used  to  indicate  the  intensity  modulation 
index  of  the  individual  subcarrier  signal,  i.e.,  it  is  not  the  overall,  composite  intensity 
modulation  index  of  the  optical  source  in  the  case  of  multiple  subcarriers.  Mq  is  the 
amplitude  modulation  index  of  the  electrical  AM  subcarrier.  The  reader  is  reminded  that 
care  must  be  exercised  in  selecting  M,.r  and  M for  an  AM  subcarrier  system  in  order  to 

iv#  Cl  | 

avoid  overmodulating  the  optical  source  on  signal  peaks.  fi  is  the  frequency  modulation 
index  of  the  FM  subcarrier. 

All  of  the  subcarrier  IM  SNR  expressions  presented  above  assume  that  the 
amplifier  noise  has  a flat  spectrum  and  that  all  of  the  noise  component  are  measured  in  the 
baseband  message  bandwidth. 

2. 2. 2. 3 Baseband  Digital  OOK  and  BPPM 

The  RAM  computes  BER  for  baseband  digital  OOK  and  BPPM  according  to 


BER  = erfc 


sfl  — rGP_ 
7T  R 


V2*1 


2 2 2 

Q>  + < i[)>  + < !A>  + 


2 2 

D>+  <'A* 


(2.2.2.3-1) 


where 


oo 


erfc 


W f 


'S'2  dy 


This  result  is  based  on  the  use  of  the  optimum  bit  decision  threshold  J Noise  components 
are  computed  as  given  in  Section  2.2.1  with 
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■ 


T * 4 (OOK) 


(2. 2. 2. 3-2) 


7 r 

T * 


(BPPM) 


(2. 2. 2. 3-3) 


Required  optical  power  for  a given  BER  is  obtained  by  solving  for  PR  in  the 
BER  expression,  yielding 


pR=Q24f 

n V~2 


1 — 

2qb(lL+lbG  U)+<£> 


(2.2.2 .3-4) 


where 


BER  - erfc 


(2. 2. 2. 3-5) 


2. 2. 2. 4 Subcarrier  Digital  IM 


Subcarrier  digital  IM  performance  is  given  by 


BERnP1.  = erfc 


(2. 2. 2.4-1) 


BERrsk  erfc  1,1\/“N" 


(2. 2. 2. 4-2) 
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with 


2 


> + 


(MSC'GV 


The  noise  terms  are  computed  using 


b = R 


(2. 2. 2 .4-3) 


(2. 2. 2. 4-4) 


The  amplifier  noise  contribution  is  assumed  to  be  spectually  flat  and  matched  filter  detection 
is  assumed  in  the  electrical  demodulators. 


2. 2. 2. 5 Avalanche  Gain  Optimization 

Because  of  the  dependence  of  both  signal  power  and  diode  noise  power  on 
avalanche  gain,  there  exists  an  optimum  gain  value  which  maximizes  SNR  for  a given 
received  optical  power  for  analog  channels  or  minimizes  BER  for  a given  received  power 
for  digital  channels.  In  the  case  of  baseband  analog  IM  and  both  digital  and  analog 
subcarrier  IM,  this  optimum  gain  can  be  obtained  analytically  and  is 


2 {2qll.b  * 
“o{2qb(rPR  + 'b>} 


1/(2+  aD) 


(2.2.2 .5-1) 


The  concept  of  optimum  gain  for  multiple  subcarriers  is  meaningful  only  if  the  amplifier 
noise  spectrum  is  flat  and,  hence,  G ^ has  no  bandwidth  dependence. 

Unfortunately,  in  the  case  of  baseband  digital  systems,  analytical  expressions 
for  optimum  gain  do  not,  in  general,  exist  and  the  gain  must  be  optimized  numerically.^ 
FODAP  has  the  capability  to  perform  this  numerical  optimization  procedure. 
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2.3 


Fiber  Analysis 

As  with  conventional  cable  systems,  two  of  the  main  performance  parameters 
of  the  optical  fiber  cable  are  attenuation  or  loss  and  bandwidth.  A third  important 
performance  measure  is  the  amount  of  optical  power  that  can  be  launched  into  the  fiber 
cable  by  the  optical  transmitter. 

The  computation  of  loss  for  a length  of  optical  cable  is  just  a straight  forward 
multiplication  of  the  cable  length  by  the  optical  attenuation  of  the  cable  in  dB  per  unit 
length . 

The  amount  of  power  coupled  into  a fiber  or  fiber  bundle  depends  strongly  on 
both  the  characteristics  of  the  fiber  and  the  optical  source.  For  this  reason  the  assignment 
of  coupled  power  calculation  to  either  the  Fiber  Analysis  Module  (FAM)  or  to  the  Trans- 
mitter Analysis  Module  (TAM)  of  FODAP  is  somewhat  an  arbitrary  choice.  As  it  turns  out, 
both  the  FAM  and  the  TAM  have  the  capability  to  compute  coupled  power.  However, 
since  it  appears  that  in  the  future  most  optical  sources  for  fiber  communication  will  have  a 
fiber  stub  or  pigtail  permanently  attached,  it  seems  most  appropriate  to  compute  coupled 
power  in  the  TAM.  The  FAM  determines  coupled  power  only  when  no  fiber  pigtail  is  used 
on  the  transmitter.  The  reader  is  referred  to  Section  2.4,  which  deals  with  the  TAM,  for 
details  relating  to  coupled  power  computations. 

By  far  the  bulk  of  the  computation  done  in  the  FAM  is  related  to  fiber  cable 
bandwidth.  Fiber  bandwidth  is  limited  by  the  temporal  spreading  or  dispersion  of  optical 
energy  as  it  propagates  alo^g  a length  of  fiber  waveguide.  In  multimode  fibers,  the 
only  ones  currently  of  practical  significance,  dispersion  may  be  separated  into  two 
contributions.  The  first  of  these  is  intermodal  dispersion  which  results  from  differing 
transmission  delays  for  the  various  waveguide  modes.  Intermodal  dispersion  is  often 
called  simply  modal  dispersion.  The  second  contribution  is  intramodal  dispersion  or 
the  variation  of  propagation  delay  of  optical  energy  at  different  wavelengths  within  a 
given  waveguide  mode.  The  dominant  source  of  intramodal  dispersion  is  the  dependence 
of  the  index  of  refraction  of  the  waveguide  material  on  wavelength,  or  the  material 
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effect.  Thus  intramodal  dispersion  is  dependent  on  the  optical  source  being  used,  in 
particular,  on  the  spectral  width  of  the  source.  Intramodal  dispersion  is  sometimes  called 
material  dispersion.  We  prefer  to  call  it  spectral  dispersion. 

Multimode  optical  waveguides  generally  available  today  can  be  devided  into 
two  classes  - step  index  and  graded  index.  In  a step  index  fiber  the  core  material  has  a 
radially  uniform  index  of  refraction  with  an  abrupt  reduction  or  step  change  in  refractive 
index  at  the  core-cladding  interface.  A graded  index  fiber,  on  the  otherhand,  has  a core 
index  profile  which  decreases  smoothly  with  radial  distance  from  the  fiber's  longitudinal 
axis.  There  is  no  sharply  defined  core-cladding  interface  in  a graded  index  fiber.  Optical 
energy  propagation  along  a fiber  waveguide  is  supported  by  total  internal  reflection  at  the 
core-cladding  interface  in  the  case  of  a step  index  while  continuous  refraction  or  bending 
of  rays  provides  "guidance"  in  a graded  index  fiber.  As  will  be  shown  in  example  FAM 
computations  which  appear  later  in  this  report,  the  effect  of  index  grading  is  a substantial 
reduction  in  intermodal  dispersion. 

A functional  description  of  the  core  index  profile  which  can  be  used  to 
describe  both  step  and  graded  index  fibers  is 

n(r)  = [l  -2  A (r/2)  aj  1/2,  r<2  (2.3-1) 

n(r)  = n2/  bZrZ-a 
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where 

rij  = core  index  of  refraction  on  the  longitudinal  axis  of  the  fiber 
nj  = cladding  index  of  refraction 
r = radial  distance  from  the  fiber  axis 
a = core  radius 

b = fiber  radius  (core  + cladding) 

2 2 2 

A = (n^  - n^)/2n^  « (n ^ -n^ )/n ^ for  small  A 
d = fiber  index  profile  shape  parameter 

In  the  limit  of  a — ► oo,  equation  (2.3-1)  describes  an  ideal  step  index  fiber.  Figure  2.3 
shows  plots  of  the  index  profiles  of  an  ideal  step  index  fiber  (a  = oo),  a practical  step 
index  fiber  (a  = 25)  and  a "near  parabolic"  graded  index  fiber  (a  = 2). 

As  will  be  shown  subsequently,  both  intermodal  and  intramodai  dispersion 
depend  directly  on  the  index  difference  parameter  This  parameter  is  usually  specified 
in  terms  of  the  numerical  aperture  (NA)  of  the  fiber  which  is  defined  as 


NA  = sin  9.  ~ n.  V2A 
A 1 


(2.3-2) 


Here  9^  is  the  acceptance  half-angle  of  the  fiber,  i.e.,  the  maximum  angle  relative  to 
the  fiber  axis  at  which  plane  wave  optical  energy  impinging  on  the  end  face  of  the  fiber 
will  be  accepted  and  propagated.  Plane  wave  excitation  striking  the  fiber  end  at  angles 
greoter^than  9^  passes  through  the  core  into  the  cladding  and  is  lost.  Thus  the  NA  is  an 
indicator  of  the  amount  of  optical  power  that  can  be  launched  into  the  fiber,  and,  through 
its  direct  relation  to  A,  is  a measure  of  the  dispersiveness  of  the  waveguide. 


2-13 


n 


1 


IDEAL  STEP 
or  = m 


n 


1 


PRACTICAL  STEP 
a =25 


n 


1 


NEAR-PARABOLIC 
a = 2 


n2 

b 


6826-1 


or  Multimode  Fibers 
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The  next  five  subsections  present  the  equations  used  by  the  FAM  to  predict 

dispersion  and  bandwidth  for  general  multimode  optical  fibers  described  by  equation  (2.3-1). 

7 8 

Dispersion  predictions  are  taken  from  recent  work  by  Olshansky  and  Keck.  ' 


2.3.1  Intermodal  Dispersion 

It  has  been  found  that  a convenient  measure  of  fiber  dispersion  for  baseband 
digital  links  is  the  rms  duration  of  the  fiber's  optical  intensity  impulse  response  given  by 

1/2 


a = 


00 


A 


f: 


t^h(t)dt 


2 . 


th(t)dt . 


oo 

= /h(t)dt 


■00 


(2.3. 1-1) 


where  h(t)  is  the  optical  intensity  impulse  response  of  the  fiber. 

The  intermodal  dispersion  of  a fiber,  ignoring  mode  coupling  effects,  is 

approximately 


LN.4  „ / 

. „\-  1 a ( 

inter'  2c  a + 1 \3o»+2 


J/2 


2 40^24(0+1)  AA2C?2(2ot+2)2 

C1  + 2ct+l  + (5 a +2)  (3 a +2)  J 


1/2 


(2. 3. 1-2) 


c = free  space  speed  of  light 
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X = source  wavelength 
L = waveguide  length 


(2. 3. 1-3) 
(2. 3. 1-4) 
(2.3. 1-5) 
(2. 3. 1-6) 


There  is  an  optimum  value  of  the  index  profile, 
disperson.  This  value  is 


a , which  minimizes  the  intermodal 
opt 


a 


opt 


2+€-A 


(4+f ) (3+<Q 

me) 


(2.3.1  -7) 


Note  the  linear  dependence  of  intermodal  dispersion  on  fiber  length  L,in  (2.3.1— 1).  It  is 
known,  however,  that  for  sufficiently  long  optical  cables  the  intermodal  dispersion  has  a 
VT  - dependence  rather  than  linear  dependence.  This  behavior  is  attributed  to  mode 
coupling  or  mixing  within  the  waveguide  caused  by  microstresses  imposed  on  the  fiber  by 
the  cabling  material.  Intermodal  dispersion  is  reduced  by  mode  coupling  because  optical 
energy  propagates  first  in  one  mode  and  then  in  another,  etc.  The  propagation  delay 
experienced  by  the  optical  energy  is  then  a weighted  average  of  the  delays  of  the  various 
modes.  This  averaging  of  propagation  time  tends  to  reduce  differential  delay  and,  therefore, 
intermodal  dispersion. 
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The  asymptotic  behavior  of  intermodal  dispersion  may  be  expressed  by  ajn^er(L) 
for  L«L  and  a.  . (%/ LL  ) for  L»L  . L is  the  mode  coupling  length  of  the  fiber  and 
defines  the  point  of  intersection  of  the  linear  and  \ZT"  asymptotes.  Mode  coupling  within 
the  fiber  causes  some  propagating  optical  energy  to  be  coupled  into  radiating  modes  or 
lossy  cladding  modes.  Consequently,  mode  coupling  introduces  excess  loss  above  the 
uncabled  fiber  loss.  The  mode  coupling  length  of  a cabled  fiber  may  be  inferred  from  a 
knowledge  of  this  excess  loss  according  to 


(2.3. 1-8) 


where  k(a)  is  a cable  parameter  depending  on  the  nature  of  the  microstresses  on  the  fiber 

and  ! is  the  excess  loss  per  unit  length  due  to  male  coupling.  Figure  2.3.1  shows  a 
me 

typical  plot  of  k(a)  versus  a . The  FAM  uses  the  information  contained  in  this  plot  to 
predict  L^. 


2.3.2  Intramodal  Dispersion 

The  intramodal  dispersion  of  a fiber  is  given  approximately  by 


a.  w (L) 
mtra 


+ 


where 


= rms  spectral  width  of  the 
optical  source 


(2.3.2-1) 
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Figure  2.3.1.  k(a)  Versus  a 


2.3.3  Total  Dispersion 

Intermodal  and  intramodal  dispersion  combine  in  a "square-root  of  the  sum 
of  the  squares"  fashion  so  that  the  asymptotic  behavior  of  the  total  fiber  dispersion  is 


<’.o.ol<L)  ■ ; <’i„2„r<L)  + ‘’l„la(L)i  ' L<KLc 


2 . 2 / 1/2 

a.  . ,(L)  =>  a.  ‘ (/IT ) + * (L)  , L»L 

total  inter  c intra  | c 


(2. 3. 3-1) 
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Fiber  Cable  Bandwidth 


The  modulation  frequency  response  of  the  fiber  cable  is  obtained  by  Fourier 
transformation  of  the  fiber's  optical  intensity  impulse  response.  A good  approximation  for 
this  impulse  response  for  long  cables  is  a Gaussian  shape 


h(t)  = exp 


2 'total"-) 


(2 .3. 4-1) 


Taking  the  Fourier  transform  yields 


H(f)  = exp  ] -2  7T2  <7  . ,(L)  f2 


(2. 3. 4-2) 


The  frequency  response  has  been  normalized  to  unity  at  f = 0 and  represents  the  equivalent 
frequency  response  of  the  fiber  cable  to  the  modulating  signal,  i.e.,  the  equivalent 
electrical  amplitude  response  due  to  the  cable  of  the  modulating  signal  after  direct 
detection  by  the  photodetector  is  given  by  equation  (2 .3.4-2).  Hence  the  3 dB  modulation 
bandwidth  of  the  optical  cable  is  obtained  from  equation  (2. 3. 4-2)  and  is 


3 dB 


(L)  = 


0.132 

"total*0 


(2. 3. 4-3) 


The  use  of  the  Gaussian  impulse  response  assumption  to  arrive  at  f 3 (L) 

given  in  equation  (2. 3. 4-4)  leads  to  conservative  results,  at  least  in  the  rms  bandwidth 

sense.  The  validity  of  this  assertion  is  derived  from  the  uncertainty  principle  of  the 
g 

Fourier  transform  which  states  that  of  all  time  signals  having  rms  duration  a , the  one 
having  the  smallest  rms  bandwidth  is  the  Gaussian  pulse. 
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Transmitter  Design 

As  far  as  FODAP  is  con-cerned,  the  design  of  a transmitter  consists  of  selection 
of  the  desired  optical  source  and  then  specifying  the  pertinent  parameters  of  that  source. 
Design  of  optical  source  modulation  circuitry  is  beyond  the  scope  of  FODAP.  Source 
selection  is  governed  by  performance  and  cost  considerations.  This  process  is  performed 
using  the  Transmitter  Analysis  Module  (TAM)  of  FODAP.  There  are  several  source  types 
available  and  they  fall  into  four  basic  categories: 

1 . edge-emitting  light  emitting  diode  (LED) 

2.  surface-emitting  LED 

3.  injection  laser  diode  (ILD) 

4.  other  laser  types  including  helium-neon  (He-Ne)  lasers  and  neodymium- 
dopped  yttrium-aluminum-garnet  (Nd:YAG)  lasers 

The  most  common  types  of  sources  used  are  the  surface  emitting  LED  and  ILD.  To  fully 
specify  the  source  used,  one  must  specify  whether  a fiber  pigtail  is  attached  to  the  source 
since  in  FODAP,  the  pigtail  is  considered  to  be  part  of  the  transmitter.  A pigtail  is 
attached  in  the  cases  where  the  optical  alignment  between  source  and  fiber  is  extremely 
critical.  This  is  usually  the  case  for  sources  with  small  emitting  areas.  Some  manufacturers 
will  supply  their  sources  with  pigtails  attached  (for  instance.  Bell  Northern  Research).  In 
addition,  a pigtail  may  be  attached  in  cases  where  EMI  shielding  is  important.  With  a 
pigtail  attached,  the  source  may  be  located  inside  a shielded  box  with  only  a small  hole 
through  which  the  pigtail  passes. 

The  important  source  parameters  as  required  by  FODAP  are: 

1 . The  optical  power  available  for  coupling  to  the  pigtail  or  fiber  cable. 

2.  The  spacial  distribution  of  the  available  power  including  the  size  of  the 
optical  source. 
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3.  The  spectral  properties  of  the  source  including  the  peak-emitting 
wavelength  X and  the  rms  spectral  bandwidth  a 

4.  The  properties  of  the  fiber  pigtail  (if  used). 

5.  The  modulation  frequency  response  or  light  output  risetime. 

Some  of  these  parameters  such  as  available  optical  power  and  spectral  properties  are 
functions  of  temperature.  If  that  is  the  case,  then  they  are  specified  at  the  temperature 
of  interest. 

The  details  of  how  these  parameters  are  specified  and  what  calculations  are 
performed  in  the  transmitter  section  of  FODAP  using  these  parameters  are  discussea  for  the 
various  source  types  in  the  sections  that  follow. 

2.4.1  Surface  Emitting  LED 

2. 4. 1.1  Available  Optical  Power 

The  optical  power  available  from  such  a source  for  coupling  to  the  fiber  cable 
in  a system  is  an  important  parameter.  For  the  case  where  a fiber  pigtail  is  used,  the 
available  power  from  the  transmitter  that  is  inputted  to  the  other  modules  of  FODAP  is  the 
power  captured  by  the  pigtail.  In  order  to  calculate  this  power,  one  must  evaluate  the 
coupling  losses.  The  two  main  loss  sources  which  are  accounted  for  in  TAM  are  the 
numerical  aperature  losses  and  the  unintercepted  illumination  losses.  The  former  arises 
from  mismatches  between  the  fiber  pigtail  acceptance  cone  and  LED  emission  cone  and  the 
latter  results  from  mismatches  between  fiber  core  area  and  LED  emission  area.  In  order  to 
evaluate  these  losses,  one  must  know  the  LED  emission  angle,  i.e.,  the  angle  at  which  the 
intensity  pattern  mills;  the  fiber  acceptance  angle,  i.e.,  the  numerical  aperature  of  the 
fiber;  the  source  radiating  area  and  the  fiber  core  area.  The  numerical  aperature  loss  is 
calculated  using 
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(2.4.1. 1-1) 

In  this  equation,  n = 9O/0n  where  0n  is  the  null  angle  (Figure  2.4.1 .1-1  illustrates  this) 

and  0KJA  's  the  fiber  acceptance  angle  which  is  given  in  terms  of  fiber  numerical  aperature, 

NA,  by  0|\|A  = s'n  (NA).  Note  that  the  above  result  does  not  hold  for  n=l . That  case  is 

discussed  below.  Also,  for  0K1A  > 0 , L 1A  = 0 is  used. 

NA  n NA 

The  un intercepted  illumination  loss  is  given  by 
AF 

Ljj,  (dB)  = 10  log  (2.4.1. 1-2) 

where  A„  is  the  fiber  core  area  and  A is  the  LED  emission  area.  Note  that  the  above 
F s 

equation  does  not  hold  for  A^  < Ap.  There  is  no  unintercepted  illumination  loss  in  that 
case. 

To  account  for  the  case  where  a fiber  bundle  is  attached  as  a pigtail,  one 
must  include  the  packing  fraction  loss.  The  packing  fraction  f is  defined  as  the  ratio  of 
total  core  area  to  total  area  within  fiber  bundle  termination.  Figure  2.4.1 .1-2  illustrates 
the  packing  fraction  concepts.  Hence,  the  packing  fraction  loss  is 

Ld_  (dB)  = 10  log  (f  ) (2.4. 1.1-3) 

PF  p 

When  a single  fiber  is  used  as  a pigtail,  f s 1 and  Lpp  = 0. 
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RELATIVE  PHOTON  INTENSITY 
vs 

ANGULAR  DISPLACEMENT 


6826-47 


Figure  2.4. 1 . 1 -1 . Plot  of  LED  Output  Intensity  Versus  Angle 
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Figure  2. 4. 1.1-2.  Packing  Fraction  Concepts 
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As  to  the  special  case  noted  above;  when  the  null  factor  n-1 , this  describes 
a so-called  Lambertian  emitter.  For  this  special  case,  the  numerical  aperature  loss  is 
given  by 

LK1A  (dB)  = 10  log  (NA2)  (2.4. 1.1-4) 

NA 

In  summary,  the  available  power  for  the  case  of  an  attached  pigtail  is 

found  using: 


10  log 


LNA  + LUI  + lpf 


(2. 4. 1.1 -5) 


where  P is  the  total  source  power  at  the  specified  temperature  and  drive  current.  Thus, 
the  parameters  which  need  to  be  specified  in  order  to  find  P^  are  P , n,  NA  (of  pigtail), 
f , A (of  pigtail)  and  A . In  general,  these  parameters  are  specified  by  the  component 

pi  s 

manufacturer. 

The  above  calculations  are  valid  for  the  case  where  a step  index  fiber  is 

used  as  the  pigtail . If  a graded  index  fiber  is  used  that  has  the  same  NA  and  core  area, 

an  additional  loss,  L^.  = 3 dB  must  be  gdded  to  equation  (2.4.1 .1-5)  to  account  for  the 

.10 

fact  that  fewer  modes  are  captured  by  the  graded  index  fiber  . However,  at  least  one 
fiber  manufacturer.  Corning,  accounts  for  this  3 dB  loss  by  specifying  an  equivalent  core 
area  which  is  smaller  than  the  actual  area  so  as  to  increase  the  loss  calculated  by  equation 
(2.4.1 .1-2)  (Ljjj)  by  3 dB.  Thus,  in  the  event  of  the  use  of  a graded  index  fiber  pigtail, 
the  FODAP  user  should  determine  what  method  is  to  be  used  to  account  for  Lqj* 

For  the  case  where  a pigtail  is  not  used  and  the  LED  is  coupled  directly  to 
the  fiber  cable,  P^  is  simply  P^.  In  this  case,  the  losses  associated  with  coupling  to  the 
fiber  cable  are  calculated  in  FAM  of  FODAP  using  the  same  equations  as  above. 


In  the  event  that  the  LED  has  an  attached  lens  - whether  it  is  an  epoxy 
"dome"  or  glass  lens  integral  with  the  LED  package  - the  values  used  for  the  null  factor 
n and  area  are  those  at  the  lens  output . 

Most  manufacturers  specify  the  total  source  power,  P . However,  there  are 

2 s 

a few  who  specify  either  the  source  radiance,  B (in  W/sr-cm  ),  or  the  radiant  intensity, 

I (in  mW/sr).  For  the  case  of  the  Lambertian  emitter,  the  source  power  is  derived  from 
o 

these  parameters  using  the  following  relationships: 


P = 7T  I 
s o 

P = Btt  A 
s s 


(2.4. 1.1-6) 
(2. 4. 1.1 -7) 


2. 4. 1.2  Spectral  Properties 

As  was  pointed  out  in  Section  2.3,  the  spectral  properties  of  the  source  have 

» 

a large  impact  on  the  overall  system  modulation  capability.  Since  these  are  properties  of 
the  source,  the  spectral  parameters  A , the  peak  emission  wavelength  and  <7^,  the  rms 
spectral  bandwidth  are  specified  in  TAM.  However,  no  calculations  are  performed  in 
TAM  using  these  parameters,  the  information  is  passed  onto  FAM  where  calculations  are 
made  using  A and  <7^  . In  general,  these  quantities  are  specified  on  manufacturers 
specification  sheets.  These  parameters  are  functions  of  temperature  and  drive  current  level 
and  so  they  are  specified  at  the  desired  conditions.  Figure  2.4.1 .2-1  illustrates  the 
spectral  properties  of  typical  LED  and  ILD  sources. 

2. 4. 1.3  Modulation  Properties 

The  source  modulation  properties  are  important  in  determining  the  overall 

system  modulation  capability.  Mose  manufacturers  specify  the  source  iight-output  risetime, 

t . Others  may  specify  the  3 dB  modulation  bandwidth,  f - The  two  quantities  are 
r o dD 

related  using  the  following  equation: 


V 0,35/f3  dB 


(2. 4. 1.3-1) 
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These  parameters  are  functions  of  drive  current  level  and  drive  circuit  configuration  and 
so  they  are  specified  for  the  appropriate  conditions. 


! 


2.4.2  Edge  Emitting  LED 


2. 4. 2.1  Available  Optical  Power 


The  relationships  derived  for  the  surface  emitting  LED  apply  for  the  case  of 
cylindrical  symmetry  about  the  emitting  axis.  Edge  emitting  LED's  have  an  eliptical 
emission  pattern  and  this  assymmetry  makes  them  not  ameanable  to  analysis.  Hence,  an 
empirical  expression  for  is  used:  ^ 


(2. 4.2. 1-1) 


where  NA  is  the  pigtail  or  fiber  numerical  aperture  (depending  or  whether  a pigtail  is 
used  or  not),  dp  is  the  fiber  or  pigtail  core  diameter  in  microns  and  is  the  average  source 
power  at  the  specified  drive  current  and  temperature. 

In  this  case,  if  a graded  index  fiber  is  used  as  the  pigtail,  P^  as  calculated 
above  must  be  reduced  by  a factor  of  2. 

For  the  case  where  a pigtail  is  not  used,  P^  is  simply  P^  as  before. 

2. 4. 2. 2 Spectral  Properties 

The  FODAP  user  specified  the  spectral  parameters  A and  <7^  as  part  of  the 
TAM  input.  These  data  are  commonly  available  from  manufacturers  specification  sheets. 
They  are  specified  by  the  FODAP  user  at  the  temperature  and  drive  current  levels  of 
interest . 
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2.4. 2. 3 Modulation  Properties 

Either  the  light  pulse  risetime  t,  or  modulation  bandwidth  f^  are  specified 


using  data  supplied  by  manufacturers.  They  are  user-specified  taking  into  account  the 
appropriate  conditions. 

2.4.3  ILD 

2.4.3. 1 Available  Optical  Power 

The  ILD  is  also  an  edge  emitting  device.  Figure  2.4.3. 1-1  illustrates  the 
ILD  emission  pattern.  The  assymmetrical  pattern  makes  exact  calculation  difficult  - 
complicated  ray  tracing  calculations  are  involved  - and  so  empirical  equations  for  are 
used  for  the  case  where  a pigtail  is  employed.  The  coherence  of  the  laser  emission  and 
the  small  radiating  area  allow  the  designer  to  couple  considerably  more  power  into  a fiber 

than  is  possible  with  an  LED.  In  addition,  there  are  techniques  for  further  enhancing  the 

coupling.  A common  technique  is  the  use  of  a microlens  either  attached  to  or  melted  on 
the  fiber  end.  In  TAM  for  the  case  where  a pigtail  is  used,  P^  is  calculated  for  the 
lensed  or  nonlensed  situations  using  the  equations  below: 

Nonlensed:  P^  = 0.15  f Ps  (2. 4. 3. 1-1) 

Lensed:  PA  = 0*5  f P (2. 4. 3. 1-2) 

A p s 

where  P is  the  source  power  at  the  desired  operating  conditions.  These  equations  are 
s 

empirical  but  they  are  conservative  so  that  their  predictions  are  worst-case.  In  this 
particular  case,  the  coupled  power  is  the  same  whether  the  pigtail  is  a step  or  graded 
index  fiber. 
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W 


When  no  pigtail  is  used,  is  simply  Ps  as  before  and  coupling  losses  are 
calculated  in  FAM. 


2. 4. 3. 2 


Spectral  Properties 


The  values  for  A and  <7^  at  the  desired  operating  conditions  are  user 
supplied  as  before . Refer  to  Figure  2 .4. 1 .2-1  for  a comparison  of  spectral  properties  of 


LED's  and  ILD's. 


2.4. 3.3 


Modulation  Properties 


An  ILD  is  different  from  an  LED  in  its  modulation  properties.  This  is  because 
above  the  lasing  threshold  current,  the  quantum  efficiency  of  the  ILD  is  considerably  higher 
than  that  of  an  LED.  The  light  output  as  a function  of  current  input  for  an  ILD  is  shown  in 
Figure  2. 4. 3. 3-1 . The  lasing  and  nonlasing  regions  are  clearly  shown.  For  comparison, 
the  L-l  characteristic  of  a typical  LED  is  also  shown.  To  properly  digitally  modulate  an 
ILD,  it  must  be  prebiased  to  just  below  threshold  with  the  signal  current  superimposed  on 
the  dc  bias.  Analog  modulation  is  accomplished  by  prebiasing  to  above  threshold  and  then 
superimposing  the  modulating  signal. 

Modulation  bandwidth  and/or  light  output  risetime  are  user  specified  for  the 
appropriate  operating  conditions. 


2.4.4 


Other  Laser  Types 


Other  laser  types  may  be  used  as  optical  sources.  The  two  most  common  are 
the  HeNe  and  NdrYAG  lasers. 


2. 4. 4.1 


Available  Optical  Power 


Because  of  the  coherence  of  the  laser  light,  essentially  all  of  the  source 
power  can  be  focused  into  an  optical  fiber.  The  only  losses  are  those  associated  with 
reflections  which  are  small  enough  to  be  ignored.  Thus,  for  the  case  where  a pigtail  is 


Figure  2. 4. 3. 3-1 . ILD  and  LED  L-l  Characteristics 
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P f T- 
s P A 


(2 .4.4. 1-1) 


Ps  is  the  source  power  at  the  given  operating  conditions.  The  factor  Ap/A^  is  included  to 
account  for  the  case  where  the  optical  spot  area  even  after  focusing  is  larger  than  the 
fiber  core  area  Ap.  The  factor  Ap/A^  is  simply  the  unintercepted  illumination  loss  discussed 
in  Section  2.4.1 .1 . Equation  (2.4.4. 1-1)  holds  whether  a graded-index  or  step-index 
fiber  is  used  as  the  pigtail. 


In  the  case  where  a pigtail  is  not  used,  P^  = P$  as  before. 


2. 4. 4. 2 Spectral  Properties 

The  parameters  X and  O ^ are  given  by  the  laser  manufacturers.  This  data 
is  inputted  by  the  FODAP  user  at  the  desired  operating  conditions. 

2. 4. 4. 3 Modulation  Properties 

These  types  of  lasers  cannot  be  modulated  directly;  an  external  modulator  is 
required.  Typically,  acousto-optic  modulators  are  used.  These  devices  are  discussed  in 
depth  in  the  Optical  Cable  Communications  Study  } The  optical  pulse  risetime  and/or 
modulation  bandwidth  parameters  required  as  input  for  TAM  are  those  appropriate  to  the 
modulator  used.  These  data  are  generally  supplied  by  the  device  manufacturers . 
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2.5 


Systems  Design 

As  was  pointed  out  earlier,  design  of  an  optical  fiber  link  occurs  at  two 
levels.  First,  the  individual  components  must  be  designed  or  specified  and  then  secondly, 
their  interaction  is  considered  in  a system-level  design.  The  overall  design  goals  of  a 
communication  link  involve  the  transfer  of  information  from  one  point  to  another  without 
degradation.  For  analog  systems,  this  amounts  to  designing  for  a desired  signal-to-noise 
ratio  (SNR),  bandwidth  and  distortion  level.  At  the  present  state-of-the-art,  analytical 
expressions  for  signal  distortion  in  optical  sources  are  not  available.  Thus,  distortion 
effects  are  not  considered  in  FODAP;  they  must  be  measured  and  specified  independently. 
However,  SNR  and  bandwidth  analyses  are  performed  by  FODAP.  For  digital  systems,  the 
design  goals  are  specified  in  terms  of  bit  error  rate  (BER)  and  bandwidth.  For  both  types  of 
systems,  the  calculations  that  pertain  to  the  overall  system  SNR  or  BER  performance  are 
performed  in  RAM.  However,  to  summarize  the  interactions  between  modules,  the  Systems 
Analysis  Module  (SAM)  gathers  data  from  each  module  and  displays  it  in  terms  of  a link 
budget.  The  link  budget  concept  is  a very  useful  tool  because  it  tells  the  designer  whether 
or  not  he  has  "closed  the  link"  in  terms  of  having  adequate  optical  power  to  meet  the  SNR 
or  BER  requirements.  The  link  budget  concept  is  discussed  in  more  detail  in  Section  2.5.1 
below.  SAM  also  calculates  an  overall  system  bandwidth  and  displays  it  so  that  the 
designer  will  know  if  his  link  design  has  adequate  signal  bandwidth.  Section  2.5.2  below 
describes  this  calculation. 

2.5.1  Link  Budget 

To  verify  whether  or  not  the  design  goals  for  SNR  or  BER  have  been  met  by 
the  combination  of  the  various  component  designs,  the  engineer  can  use  a link  budget. 

This  link  budget  starts  with  the  total  source  power.  All  of  the  system  losses  (the  input 
coupling  loss,  the  splice  and  connector  losses,  i.ie  fiber  attenuation  losses  and  the  output 
coupling  loss)  are  listed  along  with  the  received  optical  power.  The  received  power 
required  to  meet  the  SNR  or  BER  design  goals  is  listed  and  the  difference  between  this 
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number  and  the  actual  received  power  is  noted.  An  example  link  budget  is  shown  in 
Figure  2.5.1 . This  type  of  listing  gives  the  designer  a quick  summary  of  whether  or  not 
his  design  goals  have  been  met.  It  also  helps  him  to  see  the  weak  points  of  his  design. 

For  example,  because  of  source  or  fiber  characteristics,  a proposed  design  may  suffer  from 
overly  large  input  and  output  coupling  losses  resulting  in  a power  deficit.  This  would  be 
clearly  visible  in  a link  budget  listing  with  the  result  being  that  the  designer  would  select 
a different  component  in  order  to  close  the  link. 

The  FODAP  user  can  use  this  aspect  of  SAM  to  work  backwards  through  the 
link.  That  is,  he  could  specify  a desired  link  power  margin  and  have  SAM  compute  the 
required  source  power  to  achieve  that  goal . 


2.5.2  System  Bandwidth  Calculation 


The  overall  system  bandwidth  is  an  important  parameter.  The  designer  must 
be  aware  of  it  to  ensure  that  his  design  goal  has  been  met.  This  is  particularly  true  in 
analog  systems.  The  main  concern  is  that  selection  of  the  wrong  fiber  can  lead  to  band- 
width limitations.  It  is  assumed  that  bandwidth  concerns  have  been  accounted  for  in  the 
transmitter  and  receiver  designs. 

The  calculation  is  performed  by  first  taking  the  rms  sum  of  the  individual 
module  risetimes: 


(2. 5.2-1) 


where  tryx  is  the  light  output  risetime  from  TAM,  tr^  is  the  "risetime"  of  the  fiber  from 

FAM  and  t,.^  is  receiver  risetime  as  calculated  in  RAM.  The  overall  system  bandwidth 

f0  jo  is  then  calculated  using  the  standard  relation: 
o do. 


0.35 


3 dBf 


(2 .5.2-2) 
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LINK  BUDGET 


AVAI LABLE  POWER  SOURCE mW  dBm 

INPUT  COUPLING  LOSS  dBm 

FIBER  LOSS  dBm 

SPLICE  LOSS  dBm 

| 

CONNECTOR  LOSS  dBm 

OUTPUT  COUPLING  LOSS  dBm 

RECEIVER  POWER  mW  dBm 


TARGET  BER 


REQUIRED  RECEIVER  POWER 

mW 

dB 

MARGIN 

dB 

SYSTEM  BANDWIDTH 

Hz 

Figure  2. 5. 1-1.  Sample  Link  Budget 
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3.0 


FODAP  USERS'  GUIDE 


The  Fiber  Optics  Design  Aid  Package  (FODAP)  is  a comprehensive  set  of 
fortran  coded  computer  routines  which  perform  an  analysis  of  an  optical  cable  communica- 
tions system.  The  program  is  design  oriented  and  interactive  or  batch  in  mode.  As  a tool 
for  the  communication  system  designer  FODAP  reduces  the  time  necessary  to  perform 
simple  system  analyses  and  can  thereby  achieve  a higher  degree  of  optimization  and 
accuracy, 

FODAP  is  structured  in  a highly  modular  format  to  facilitate  update  and 
expansion.  The  routines  fall  into  six  basic  sections:  the  executive  (EXEC),  data 
manager  (MANAGER),  transmitter  analysis  module  (TAM),  fiber  cable  analysis  module 
(FAM),  receiver  analysis  module  (RAM),  and  the  system  analysis  module  (SAM).  See 
Figure  3.0.  The  EXEC  interprets  user  instructions  and  sees  that  the  necessary  modules  are 
called  as  needed.  The  MANAGER  performs  all  the  standard  file  management  functions, 
such  as  record  creation  and  deletion,  and  directs  and  controls  all  data  input.  TAM,  FAM, 
and  RAM  perform  the  necessary  computations  for  their  respective  parts  of  the  communication 
system.  SAM  collects  data  from  the  other  three  analysis  modules  and  computes  total  system 
parameters . 

Additionally  FODAP  is  capable  of  storing  and  updating  optical  system  data 
on  a temporary  or  permanent  basis.  This  enables  the  user  to  build  a large  data  file 
describing  many  different  devices  which  he  may  then  put  together  in  any  combination 
during  a design  session.  During  analysis  the  user  may  execute  or  perform  the  TAM,  FAM, 
RAM,  and  SAM  modules  either  individually  or  as  part  of  an  overall  system.  A user  may 
also  cause  FODAP  to  automatically  vary  one  or  more  parameters  over  a specified  range  to 
provide  optimization  data. 
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3.1 


Guide  Structure  and  Use 


3.1.1  Organization 

This  users'  guide  has  been  organized  to  reflect  the  steps  a designer  must 
follow  to  use  FODAP.  Section  3.2  gives  a detailed  description  of  the  data  entry  and 
management  routines  and  their  use.  Sections  3.3  and  3.4  provide  a general  concept  of 
how  a single  module  analysis  and  a system  (multimodule)  analysis  is  performed.  Sections 
3.5  through  3.8  give  detailed  information  and  instructions  on  the  use  of  each  individual 
module.  Section  3.9  describes  several  additional  instructions  recognized  by  FODAP  which 
make  the  program  easier  to  use. 

3.1.2  Notational  Conventions 

The  notational  conventions  used  in  this  guide  are  listed  below.  The  symbols 
are  not  part  of  the  command  line  unless  indicated  in  the  text  describing  the  statement. 


<NAME> 

Replace  NAME  with  the  appropriate  parameter  for  the 
command  line. 

[NAME] 

Name  is  t n optional  argument.  If  used  replace  with  the 
appropriate  parameter  for  the  command  line. 

(NAME) 

The  name  in  parenthesis  is  a keyword  and  should  be 
reproduced  in  the  command  line  where  indicated. 

V 

Insert  one  or  more  blank  characters. 
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3.1.3 


Command  Format 


All  commands  recognized  by  FODAP  are  free-form.  There  is  no  special 
column  in  which  instructions  must  begin  or  end. 


3.1.4 


Name  Conventions 


All  names  used  by  FODAP,  whether  device  record  names  or  names  of  data 
items  are  limited  to  four  characters.  These  characters  may  be  any  that  are  recognized  by 
the  host  computer  and  the  fortran  compiler. 


3.1.5  Definition  of  Terms 

There  are  several  basic  terms  used  throughout  this  guide  which  should  be 
defined.  These  are  listed  below. 

device  or  component  - A physical  part  of  a fiber  optics  system,  either  a 
transmitter,  a fiber  cable,  or  a receiver. 

module  - A general  reference  to  the  portions  of  FODAP  dealing  in  any  way 
with  a particular  device.  The  transmitter  module  refers  to  the  software 
analyzing  the  transmitter,  the  transmitter  device  records,  and  the  transmitter 
data  items.  In  addition,  the  segment  of  FODAP  which  deals  with  the 
calculation  of  the  total  system  parameters  is  defined  to  be  a module. 

data  item  - One  attribute  or  parameter  of  a device  or  component. 

device  record  - A collection  of  data  items  which  describe  a device  and 
are  written  on  mass  storage  as  a single  record. 

record  name  - The  name  given  to  a device  record. 

record  address  - A random  access  key  assigned  to  a device  record  which 
gives  the  physical  location  of  the  record  on  mass  storage. 
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module  directory  - An  index  to  the  device  records  of  a module,  consisting 
of  the  record  names  and  associated  record  addresses. 

module  file  - The  set  of  device  records  and  directory  associated  with  a 
module. 

data  file  - The  single  mass  storage  file  which  contains  all  the  module 
directories  and  module  files. 

current  data  - The  data  items  which  have  been  read  into  FODAP  and  would 
be  used  for  purposes  of  analysis  if  a module  were  executed.  Each  module  has 

► 

its  own  set  of  current  data. 

data  name  - The  FORTRAN  name  associated  with  a data  item. 

3.2  Data  Entry 

3.2.1  Methods  of  Data  Entry 

Two  methods  used  by  FODAP  for  data  entry  are  file  input  and  item  definition. 
In  file  input  the  MANAGER  requests  data  from  the  user  during  the  creation  of  a device 
record  and  that  data  is  thereafter  referenced  by  the  assigned  record  name.  This  method  is 
used  for  entering  multiple  data  items  on  a system  component  or  device.  Item  definition  is 
a data  entry  method  used  primarily  for  data  editing  and  redefinition  or  automatic  incremen- 
tation of  parameter  values.  The  use  of  each  of  these  methods  is  fully  described  in  Sections 

3.2.2  and  3.2.3. 
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3.2.2 


Data  Entry  by  File 


3. 2. 2.1  Description  of  Data  File 

FODAP  uses  as  storage  for  its  device  records  a direct  access  file  written  in 
free  format.  The  number  of  device  records  allowed  per  module  depends  on  the  size  of  the 
module  directory  record  and  is  determined  in  the  program  source  code.  As  shown  in 
Figure  3.2. 2.1,  each  module  directory  record  is  physically  followed  by  its  associated 
device  records,  referred  to  in  the  figure  as  data  files.  The  location  of  the  module  directory 
records  within  the  data  file  are  also  determined  by  the  source  code.  Each  device  record 
entered  requires  two  words  of  its  module  directory,  one  for  storage  of  the  record  name  and 
one  for  the  record  address.  FODAP  currently  allows  100  device  records  per  module. 

3. 2.2. 2 File  Utility  Commands 

3.2. 2.2.1  Record  and  Directory  Creation  (CREATE) 

Purpose: 

Initializes  the  directory  index  and  creates  the  device  records. 

Format: 

CREATE  Jrf  <PAR-1>  FILE  # [<PAR-2>] 
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Description: 


< PAR-1  > 

<-PAR-2  > 

Description 

(NEW) 

NONE 

Initializes  all  four  module  directories  in 
the  data  file. 

(NEW) 

(TAM),  (FAM), 
(RAM),  or  (SAM) 

Initializes  only  the  module  directory 
specified  in  PAR-2.  Has  the  effect  of 
deleting  the  files  for  the  specified  module 
if  any  were  previously  created. 

(TAM), 

(RAM), 

(FAM), 
or  (SAM) 

< RECORD-NAME  > 

Creates  a device  record  called  record 
name  for  the  specified  module  in  PAR-1 . 

When  initialization  of  a directory  is  requested  FODAP  will  demand 
verification  of  the  command  by  requiring  the  user  to  reply  YES  or  NO  to  a query.  This  is 
done  to  protect  against  accidental  destruction  of  existing  device  records. 

Record  names  must  be  unique  within  a module  file.  You  may  have  a device 
record  named  ONE  in  both  the  TAM  and  SAM  module  directories,  but  an  attempt  to  create 
an  additional  device  record  by  that  name  in  TAM  or  SAM  will  result  in  an  error. 

The  command  to  create  a device  record  causes  FODAP  to  ask  for  the  appro- 
priate data  items  for  that  module.  See  the  chapter  on  each  module  for  the  exact  data 
items  which  will  be  requested. 

The  message  "DIRECTORY  CREATED"  or  "TAMFILE  record-name  CREATED", 
etc.,  will  be  printed  if  there  were  no  errors.  If  an  error  does  occur,  no  changes  will  be 
made  in  the  data  file. 

Data  entered  while  creating  a device  record  is  current  once  FODAP  has 
indicated  no  errors  were  encountered. 
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Examples: 

1.  CREATE  NEWFILE 

The  TAM,  FAM,  RAM,  and  SAM  module  directories  are  initialized. 
Any  files  which  existed  previously  are  effectively  lost  since  their 
addresses  are  destroyed. 

2.  CREATE  NEWFILE  SAM 

Only  the  SAM  module  directory  is  initialized.  Any  previous  SAM  files 
are  lost.  The  other  module  directories  and  device  records  are  not 
affected . 

3.  CREATE  TAMFILE  ONE 

A transmitter  device  record  called  ONE  is  generated.  The  record  name 
and  its  address  is  entered  in  the  TAM  module  directory. 

4.  CREATE  SAMFILE 

An  error  message  is  printed  because  a record  name  was  not  specified. 
FODAP  waits  for  a new  command. 

3.2. 2.2.2  Record  Deletion  (DELETE) 

Purpose: 

Deletes  the  specified  device  record  from  the  module  file. 

Format: 

DE LETE  <PAR  > FILE  jtf  < RECORD-NAME > 

Description: 

< PAR  > (TAM)  (FAM)  - Specifies  the  module  file  where  the  device  record 

(RAM)  (SAM)  . . . . . 

to  be  deleted  is  stored. 

K RECORD-NAME  > - The  name  of  the  device  record  to  be  deleted. 
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3. 2. 2.2. 3 


retrieval . 


The  message  "File  Deleted"  is  printed  when  action  is  completed. 

Example: 

DELETE  FAMFILE  GE26 

The  device-record  named  GE26  is  deleted  from  the  FAM  module  directory. 

Record  Retrieval  (GET) 

Purpose: 

Retrieve  a device  record  which  has  been  previously  stored. 

Format: 

1 

GET  <PAR> FILE  < RECORD-NAME  > 

Description: 

<PAR  > (TAM)  (FAM)  - Specifies  the  module  file  in  which  the  device 
(RAM)  (SAM)  record  h s,ored. 

< RECORD-NAME > - The  name  of  the  device  record  to  be  retrieved. 

A message  such  as  "RAMFILE  C13  RETRIEVED"  is  printed  on  successful 

The  data  items  retrieved  in  the  device  record  are  current. 

Example: 

GET  SAMFILE  C 

The  device  record  C in  the  SAM  module  file  will  be  read. 


3-1°  j 
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I 
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3. 2. 2. 2. 4 Record  Update  (SAVE) 

Purpose: 

To  update  a device  record  or  to  save  data  already  read  into  the  analysis 
program  by  writing  it  to  the  data  file. 

Format: 

SAVE  # <PAR>FILEJ*  <RECORD-NAME> 

Description: 

<PAR>  (TAM)  (FAM)  - Specifies  the  module  file  in  which  the  device 
<RAM>  <SAM>  record  i,  to  be  stored. 

< RECORD-NAME > - The  name  of  the  device  record  to  be  updated  or 

created . 

The  module  data  which  is  current  is  written  to  mass  storage  and  stored  under 
the  record-name  specified. 

If  a device  record  under  the  given  record-name  already  exists,  FODAP  will 
demand  verification  of  the  command  by  requiring  the  user  to  reply  YES  or  NO  to  a query. 
This  is  done  to  prevent  accidental  overwriting  of  a device  record.  If  NO  is  returned, 
FODAP  takes  no  action.  If  YES  is  returned,  FODAP  overwrites  the  contents  of  the  earlier 
device  record. 

If  a device  record  under  record-name  does  not  exist,  FODAP  creates  a new 
device  record  and  writes  the  data  to  mass  storage. 

Example: 

SAVE  TAMFILE  X 

All  the  current  TAM  data  items  would  be  written  to  the  TAM  module  file 
under  record-name  X. 


A 
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Record,  Directory  and  Data  Listing  (LIST) 

Purpose: 

To  list  the  contents  of  the  device  records,  the  current  data  in  a module,  or 
the  record-names  of  device  records  in  a module  directory. 

Formats: 

1.  LIST  tf<PAR-l>  FILE  [<PAR-2>] 

2.  LIST  PAR-1  > DIRECT 
Description: 


< PAR-1  > 

< PAR-2  > 

Description 

(TAM),  (FAM), 

NONE 

Format  1:  Lists  current  data  for  the  module 

(RAM),  (SAM) 

specified  by  PAR-1. 

(TAM),  (FAM), 

< RECORD-NAME  > 

Format  1 : Reads  and  lists  data  stored  in  the 

(RAM),  (SAM) 

specified  module  under  record-name. 

(TAM),  (FAM), 

NONE 

Format  2:  Lists  the  record-names  of  all 

(RAM),  (SAM) 

device  records  stored  in  the  specified 
module  directory. 

The  data  items  are  printed  with  their  data  names. 

Examples: 

1 . LIST  RAMDIRECT 

All  record-names  in  the  RAM  module  directory  would  be  listed. 

2.  LISTFAMFILE 

All  FAM  data  items  current  would  be  listed. 

3.  LIST  SAMFI  LET 

All  SAM  data  items  stored  in  the  named  device  record  would  be 
read  and  then  listed.  Those  data  items  read  are  current. 
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3.2.3 


Item  Entry 

Although  initially  data  items  will  be  input  to  FODAP  by  file  retrieval,  it  is 
necessary  in  a design-oriented  program  to  be  able  to  initially  define  or  change  the  values 
of  single  variables.  This  is  done  by  using  the  DEFINE  statement. 

Data  items  assigned  values  with  the  DEFINE  statement  do  not  regain  their 
original  values  unless  the  data  item  is  redefined  or  the  appropriate  device  record  it  was 
stored  in  is  retrieved  again.  If  the  user  wishes  to  save  the  data  items  changed,  a SAVE 
statement  can  be  used. 

3. 2. 3.1  Defining  a Single-Valued  Variable 

Format  1: 

DEFINE  Jrf  <DATA-NAME>  = < VALUE > 

Description: 

<DATA-NAME  > - The  name  of  the  data  item  to  be  defined.  See  the 

chapters  on  each  module  for  a list  of  acceptable  data 
names . 

< VALUE  > - The  numeric  value  of  the  data  item. 

The  value  of  the  data  item  may  be  entered  as  a decimal  number  or  in  the 
fortran  equivalent  of  scientific  notation.  Decimal  points  should  always  be  included. 
Examples  of  acceptable  numbers  are: 

1 .2317  -66771 .3  0.00014 

Examples  of  numbers  in  scientific  and  E notation  (ENTER  NUMBERS  ONLY 
IN  E NOTATION): 

-1 .66  x 10"2  -1.66E-2 

9.1  x 1023  9.1  E23 


J 4 
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3. 2. 3. 2 


Defining  a Multivalued  Variable 


In  many  design  problems  a single  variable  must  be  varied  over  a range  of 
values  while  holding  other  data  constant.  FODAP  allows  the  user  to  vary  these  values 
automatically  by  using  an  alternate  form  of  the  DEFINE  statement. 

Format  2: 

DEFINE  ji  < DATA-NAME>  = < I NITI AL- VALUE  > , < FI  NAL  VALUE  > , 
<INCREMENT> 

Description: 

< DATA-NAME  > - The  name  of  the  data  item  to  be  defined.  See  the 

chapters  on  each  module  for  a list  of  acceptable  data 
names . 

< INITIAL-VALUE  > - The  initial  value  of  the  data  item. 

< FI  NAL- VALUE  > - The  final  value  of  the  data  item. 

< INCREMENT  > - The  amount  the  data  item  is  to  be  incremented  for  each 

analysis. 

The  values  are  entered  in  the  same  manner  as  described  in  Section  3.2.3. 1 . 
An  increment  value  of  zero  is  not  allowed. 

Increment,  initial,  and  final  values  may  be  positive  or  negative. 

3.3  Analysis  of  a Module 


3.3.1 


Preparation  for  Module  Execution 


Before  a module  can  be  analyzed  the  user  must  be  certain  all  the  required 
data  has  been  made  available  to  the  program.  For  a list  of  required  data  items  see  the 
chapter  describing  the  appropriate  module.  To  perform  a module  analysis  use  the  appro- 
priate command  as  follows. 
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Format: 


TAM  - transmitter  analysis  module 
FAM  - fiber  cable  analysis  module 
RAM  - receiver  analysis  module 
SAM  - system  analysis  module 


3.3.2  Execution  Using  Single-Valued  Data  Items 

When  all  data  items  for  the  required  module  are  single-valued  one  analysis 
is  performed  and  an  output  table  printed. 

3.3.3  Execution  Using  Multivalued  Data  Items 

When  one  or  more  data  items  for  the  required  module  are  multivalued  then 
multiple  analyses  are  performed  by  FODAP  and  an  output  table  is  printed  after  each  data 
item  incrementation.  For  one  multivalued  data  item  the  module  is  analyzed  at  the  initial 
value  of  the  item,  the  item  is  incremented,  and  the  analysis  performed  with  the  new  value. 
See  Figure  3. 3. 3-1  . The  process  is  continued  until  the  final-value  is  reached  or  the 
increment  causes  the  data  item  to  go  beyond  its  defined  range. 

For  more  than  one  multivalued  data  item  the  module  is  first  analyzed  at  the 
initial  values  of  all  the  data  items.  The  data  items  are  then  varied  one  at  a time  over  their 
ranges  until  all  combinations  of  all  the  values  have  been  used  in  a module  analysis.  See 
Figure  3. 3. 3-2. 

3.4  Analysis  of  a System 

3.4.1  Preparation  for  System  (Multimodule)  Execution 

The  system  designer  is  interested  in  seeing  how  various  modules  interact  with 
one  another  to  produce  a working  fiber  optics  communication  system.  This  interaction  is 
achieved  by  using  the  output  values  from  one  module  as  input  values  to  the  next  module. 
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CONTROL  CARDS:  DEFINE  GAIN  = 80.0,  120.0,  20.0 

RAM 

EXECUTION  SEQUENCE: 


6826-35 


Figure  3. 3. 3-1 . Incrementation  and  Execution  Sequence  for  a RAM 
Module  With  One  Multivalued  Input  Variable 


J 
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CONTROL  CARDS:  DEFINE  GAIN  = 50.0,  100.0,  50.0 

DEFINE  PFO  = 1.0E-3,  5.0E-3,  4.0E-3 
RAM 


EXECUTION  SEQUENCE: 


GAIN  = 50.0 
j PFO  = 1.0E-3 

I 


6826-36 


Figure  3. 3. 3-2.  Incrementation  and  Execution  Sequence  for  a RAM 

Module  Analysis  With  Two  Multivalued  Input  Variables 
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The  data  for  each  module  must  be  already  available  to  the  program.  For  a list  of  the  data 
items  which  are  received  from  preceding  modules  see  the  appropriate  sections  on  each 
module . 


3.4.2 


Ordering  of  Module  Sequence 

The  modules  must  be  analyzed  in  an  ordered  sequence  to  assure  that  all  the 
input  data  is  ready  when  needed.  The  default  order  of  execution  is  the  transmitter  module, 
fiber  cable  module,  receiver  module,  and  system  module. 

For  special  cases  the  order  of  analysis  can  be  altered  using  the  ORDER 


statement. 


Format: 

ORDER#  < PAR>  [ , <PAR>]  [ , <PAR.>]  [ , < PAR  >1 


< PAR>  (TAM)  (FAM)  - The  module  to  be  analyzed. 
(RAM)  (SAM) 


Description: 


The  modules  to  be  analyzed  are  listed  in  the  order  they  are  to  be  executed. 
From  one  to  four  modules  may  be  specified  on  one  ORDER  statement.  The  default  order  is 
restored  by  using  the  CLEAR  statement  (see  Section  3.9)  or  by  entering  a new  ORDER 
statement . 


The  designer  is  responsible  for  making  reasonable  use  of  this  command. 
Examples: 

1.  ORDER#  TAM, FAM 

The  transmitter  module,  then  the  fiber  cable  module  will  be  analyzed. 

2.  ORDER#  RAM, TAM, SAM 

The  receiver  module,  the  transmitter  module,  then  the  system  module 


will  be  analyzed. 
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3.4.3 


Execution  of  the  Module  Sequence 


To  perform  an  entire  systems  analysis,  (the  execution  in  sequence  of  the 
transmitter,  fiber  cable,  receiver,  and  system  modules)  the  SYS  statement  is  used. 

Format: 

SYS 

Description: 

Each  module  will  be  executed  in  the  specified  order  from  the  first  to  the  last, 
unless  altered  by  the  use  of  the  ORDER  statement.  The  output  values  from  each  module  are 
available  as  input  to  later  modules  which  use  them. 

3.4.4  System  Analysis  With  Single-Valued  Data  Items 

When  the  input  data  items  for  all  modules  executed  in  a system  analysis  are 
single-valued,  each  module  in  the  order  sequence  is  executed  once.  Should  an  error  occur 
during  processing  FODAP  will  cease  execution  and  wait  for  a new  command  from  the  user. 

3.4.5  System  Analysis  With  Multivalued  Data  Items 

One  of  the  more  powerful  features  of  FODAP  becomes  apparent  when  a 
system  analysis  is  performed  on  modules  whose  input  data  items  are  multivalued.  This  type 
of  analysis  requires  that  all  combinations  of  values  of  all  variables  be  used  as  input  data  to 
the  system  sequence.  Many  input  variables  however,  are  used  in  only  one  module  and 
have  no  effect  on  the  preceding  modules  executed  in  a sequence.  FODAP  takes  advantage 
of  this  fact  by  using  a "step-up"  procedure  after  the  initial  pass  through  the  sequence  to 
avoid  the  execution  of  modules  whose  input  values  have  not  changed.  Figure  3.4.5 
illustrates  this  step-up  by  showing  the  value  changes  and  order  of  module  executions.  The 
three  variables  which  are  defined  as  multivalued  are  PTI , the  power  input  to  the  transmitter 
(a  TAM  data  item);  XL,  the  fiber  cable  length  (a  FAM  data  item);  and  XAD,  the  excess 
gain  exponent  (a  RAM  data  item).  At  the  start  of  the  sequence  each  variable  is  set  to  its 
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CONTROL  CAROS:  DEFINE 
DEFINE 
DEFINE 
SYS 

EXECUTION  SEQUENCE: 


PTI  » I.OE-3,  5.0E-3,  4.0E-3 
XL -0.5,  1.0,  0.5 
XAD-0.3,  0.4,  0.1 


6826-37 


j 


! 


Figure  3.4.5.  Execution  Steps  for  System  Analysis  Using 
Multivalue  Variables 


-| 
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initial  value  and  all  four  modules  are  executed.  Rather  than  incrementing  the  first 
variable  next,  FODAP  chooses  to  increment  XAD,  the  RAM  variable,  and  execute  only 
RAM  and  SAM.  The  TAM  and  FAM  modules  need  not  be  executed  again  since  their  input 
data  items  were  not  changed.  The  FAM  data  item  XL  is  incremented  next,  XAD  is  reset 
to  its  initial  value,  and  FAM,  RAM,  and  SAM  are  executed.  This  procedure  is  continued 
until  all  value  combinations  of  the  variables  have  been  used  as  input.  All  variables  are 
restored  to  their  initial  values  at  the  conclusion  of  the  analysis. 


3.5  Transmitter  Analysis  Module 

The  transmitter  analysis  module  is  concerned  with  the  parameters  of  only  that 
part  of  a fiber  cable  system  consisting  of  the  transmitter  and  the  fiber  cable  pigtail,  if  one 
exists.  Since  detailed  descriptions  of  the  four  type  of  transmitters  and  the  variables  which 
describe  them  are  found  elsewhere  in  the  FODAP  document,  this  section  will  deal  only 
with  the  actual  computer  execution  of  a transmitter  analysis. 

3.5.1  TAM  Input  Data 

The  TAM  module,  unlike  FAM,  RAM,  and  SAM,  receives  aM  input  data 
through  the  data  file  or  the  DEFINE  statement. 

Input  from  the  data  file  is  requested  by  use  of  the  GET  TAMFILE  NAME  or 
LIST  TAMFILE  NAME  commands.  A GET  TAMFILE  NAME  command  (Section  3. 2. 2. 2. 3) 
causes  FODAP  to  read  the  named  device  record  from  mass  storage.  A LIST  TAMFILE  NAME 
command  (Section  3. 2. 2. 2. 5)  causes  FODAP  to  read  the  named  device  record  from  mass 
storage  and  also  print  the  values. 

Data  is  both  read  into  FODAP  and  written  to  mass  storage  as  a device  record 
by  using  CREATE  TAMFILE  NAME.  A CREATE  TAMFILE  NAME  command  (Section 
3.2.2 .2.1)  causes  FODAP  to  print  a list  of  variables  which  the  user  should  enter  into  the 
program.  This  directed  entry  of  data  is  intended  to  reduce  error  by  forcing  a number  to  be 
input  for  every  requested  variable.  These  numbers  are  entered  in  the  order  asked  for  by 
the  program,  separated  by  commas,  and  in  the  format  described  in  Section  3. 2. 3.1. 
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The  necessary  data  items  could  also  be  entered  individually  with  the  DEFINE 
statement.  The  user  assumes  the  responsibility  of  including  every  data  item  needed  when 
using  this  entry  method. 

Table  3. 5.1-1  lists  all  variables  defined  as  input  for  TAM.  The  data  names 
are  the  FORTRAN  names  recognized  by  FODAP  and  are  always  used  as  shown.*  Notice 
that  different  sets  of  input  variables  are  needed  for  the  various  source  types  shown.  The 
designer  should  use  this  table  as  a checklist  before  attempting  to  enter  his  data  into  FODAP 
to  be  certain  values  exist  for  all  necessary  data  items. 

Table  3. 5. 1-2  is  a list  of  coded  input  variables  and  the  values  those  variables 
may  be  assigned.  The  designer  should  be  sure  to  use  only  those  values  indicated. 

3.5.2  Execution  of  the  TAM  Module 

As  described  in  Section  3.3.1  analysis  of  a transmitter  is  initiated  by  use  of 
the  command  directive. 


TAM 


The  TAM  module  does  not  attempt  to  read  any  data  since  it  assumes  the  user  has  already 
entered  the  data  through  the  use  of  the  CREATE  TAMFILE,  GET  TAMFILE,  LIST  TAMFILE, 
or  series  of  DEFINE  statements.  TAM  performs  the  task  of  calculating  the  parameters  which 
describe  the  transmitter,  printing  the  output  table,  and  making  available  parameters  which 
must  be  used  by  later  modules. 

It  may  be  helpful  to  the  designer  to  be  aware  of  when  and  where  certain 
parameters  are  computed.  This  information  can  be  obtained  by  use  of  the  provided  logic 
diagrams  (Section  3.12)  and  the  program  listings  (Section  3.13)  of  FODAP.  Notes  are  also 
provided  with  the  module  tables  where  helpful  to  describe  more  fully  the  nature  of  the 
variables  listed. 


for  a master  list  of  all  the  variables  and  their  definitions. 
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Edge  LED 


No 


XLAM 

TNA 

TFP 

TDF 


(R)  - Required  input 


No 

Pigtail 


Table  3. 5. 1-1 . Input  Variables  for  TAM 


Surface  LED 


Pigtail 


R 

R 


Laser  (ILD) 

No 

Pigtail 

Pigtail 

R 

R 

- 

R 

OPT 

OPT 

R 

R 

- 

- 

- 

- 

R 

R 

R 

R 

- 

R 

- 

- 

- 

- 

- 

R 

R 

R 

(OPT)  - Optional  input 


(-)  - Not  applicable 


' These  are  coded  variables.  Values  are  given  in  Table  3. 5. 1-2. 

^Enter  one  of  the  three  variables  PTI,  XIO,  or  BTR  when  SRCE  is  a surface  LED.  If  more 
-than  one  variable  has  a value  TAM  will  use  in  order  of  preference  PTI,  XIO,  then  BTR. 
^Enter  RT  or  BW  but  not  both . 

^DS  must  be  defined  if  BTR  is  used. 

^SPEC  and  XLAM  describe  the  transmitter  but  are  not  used  by  TAM.  They  are  used  by  the 
FIBER  module  and  should  be  defined  if  possible. 
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Table  3. 5. 1-2.  Coded  Input  Variables  and  Values  for  TAM 


Variable 

Coded  Value 

Definition 

SRCE 

1 

Edge  LED 

2 

Surface  LED 

3 

Laser  (ILD) 

4 

Laser  (YAG) 

XLEN 

0 

No  Lens 

1 

Lens 

TAIL 

^ 0 

No  Pigtail 

1 

Pigtail 

3.5.3  TAM  Output  Data 

The  TAM  module  prints  at  the  end  of  every  transmitter  analysis  an  output 
table  which  contains  variables  of  interest,  both  input  and  calculated,  to  the  system 
designer.  See  Table  3.5.3  for  a listing  of  those  variables. 

Other  values  are  passed  through  COMMON  for  use  in  later  modules.  SPEC 
and  XLAM  are  two  variables  which  are  attributes  of  the  transmitter  yet  used  by  FAM.  PTO 
is  calculated  and  printed  by  the  TAM  module,  but  is  also  passed  to  both  FAM  and  SAM. 

The  values  passed  to  other  modules  in  this  manner  are  listed  as  input  variables  to  those 
modules  in  their  input  tables. 
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Table  3.5.3.  Variables  Listed  in  TAM  Output  Table 


Variables 

SRCE 

TAIL 

BW 

PTI 

PR 

PTO 

XI O 

BTR 

XLAM 

SPEC 

TNA 

TFP 

TDF 

ANGL 

XAI1 

XAI  is  computed  in  the  TAM  module  only  if  there  is  a pigtail  and  XAI  is  not  given  a 
value  either  with  a FAM  device  record  or  with  a DEFINE  statement. 


3 .6  Fiber  Analysis  Module 

The  fiber  analysis  module  is  concerned  with  the  parameters  of  only  that  part 
of  a fiber  cable  system  consisting  of  the  fiber  cable  itself.  FODAP  distinguishes  between 
types  of  fiber  cables  only  by  the  values  the  cable  parameters  assume.  A complete  discussion 
of  the  fiber  cable  can  be  found  elsewhere  in  the  FODAP  document.  This  section  deals  only 
with  the  actual  execution  of  a fiber  cable  analysis. 

3.6.1  FAM  Input  Data 

The  FAM  module  can  receive  input  data  from  three  sources;  the  data  file, 
the  TAM  module,  and  the  DEFINE  statement. 

Input  from  the  data  file  is  received  from  two  device  records;  one  FAM  record 
and  one  SAM  record.  These  records  can  be  requested  by  using  the  GET  FAMFILE  NAME, 
GET  SAMFILE  NAME,  LIST  FAMFILE  NAME,  and  LIST  SAMFILE  NAME  commands.  Data 
can  also  be  entered  through  use  of  the  CREATE  statement.  The  operations  of  these 
commands  are  identical  to  the  description  in  Section  3.5.1  for  the  TAM  module. 
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The  necessary  data  items  could  also  be  entered  individually  with  the  DEFINE 
statement.  As  stated  in  Section  3.5.1,  the  user  assumes  the  responsibility  of  including  all 
data  items  which  should  be  defined. 

Data  is  also  passed  to  the  FAM  module  from  the  TAM  module.  This  is  done 
automatically  and  is  transparent  to  the  user.  If  the  TAM  module  is  not  executed  prior  to 
the  FAM  module,  the  designer  must  be  certain  the  data  items  which  would  have  been 
defined  are  entered  by  another  method. 

Table  3.6.1  lists  all  variables  defined  as  input  for  FAM.  The  data  names  are 
the  FORTRAN  names  recognized  by  FODAP  and  are  always  used  as  shown.  See  Section 
3.10  for  a master  list  of  all  the  variables  and  their  definitions.  The  designer  should  use 
this  table  as  a checklist  before  attempting  to  enter  his  data  into  FODAP  to  be  certain 
values  exist  for  all  necessary  data  items. 

Several  variables  are  assigned  default  values  as  shown  in  Table  3.6.1 . These 
values  are  used  only  if  the  listed  parameters  have  a value  of  zero  when  the  FAM  analysis 
begins. 


3.6.2 


Execution  of  the  FAM  Module 


The  FAM  module  does  not  attempt  to  read  any  data  items.  The  user  is  assumed  to  have 
already  entered  all  the  necessary  input  data  (see  Section  3.5.2).  FAM  performs  the  tasks 
of  calculating  the  parameters  which  describe  information  flow  through  the  fiber  cable, 
printing  the  output  table,  and  making  available  parameters  used  by  the  RAM  and  SAM 
modules. 
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Table  3.6.1 . Required  Input  Variables  for  FAM 


Input  From 
FAM  File 

Input  From 
TAM 

Input  From 
SAM 

Input 

Only  With 
DEFINE 

PTO 

PFI1 

CORE3 

X 

X 

X 

DF 

X 

FP 

X 

DEL3 

X 

ALFA 

X 

XLMC 

X 

CLAD3 

X 

XNA3 

X 

PN12 

X 

PDD2 

X 

PSEC2 

X 

AF 

X 

AS 

X 

AC 

X 

XAI 

X 

SRCE 

X 

TAIL 

X 

XLEN 

X 

DS 

X 

ANGL 

X 

SPEC 

X 

XLAM 

XL 

X 

X 

CN 

X 

SN 

X 

XAO 



X 

*PFi  and  PTO  are  equivalent  if  the  transmitter  has  a pigtail.  If  PFI  is  the  input  power  only 
XLAM  and  SPEC  need  be  defined  from  the  TAM  module.  If  both  variables  are  defined, 

PFI  is  used. 

2The  three  variables  PN1 , PDD,  and  PSEC  have  default  values  derived  from  an  optical  fiber 
made  by  Corning  with  a titanium  oxide  doped  core  and  fused  silica  cladding,  which  is 
similar  to  a germanium  doped  fiber.  The  values  are:  PN1  = -0.0145,  PDD  = -0.00085 
and  PSEC  = 0.025. 

JThe  four  variables  CORE,  CLAD,  DEL,  and  XNA  are  interrelated.  If  the  combinations  of 
variables  listed  are  entered  the  missing  values  will  be  calculated  by  FAM.  Those  combina- 
tions are  XNA  and  DEL,  CORE  and  CLAD,  and  CORE  and  DEL.  New  values  will  not  be 
computed  for  any  defined  variables. 

J 
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3.6.3 


FAM  Output  Data 


The  FAM  module  prints  at  the  end  of  every  fiber  cable  analysis  an  output 
table  which  contains  variables  of  interest,  both  input  and  computed,  to  the  system  designer. 
See  Table  3.6.3  for  a listing  of  those  variables. 


Table  3.6.3.  Variables  Listed  in  FAM  Output  Table 


Variables 

DTRA 

DTER 

DTOT 

BL 

XLC 

PTO 

PFI 

PFO 

XLAM 

SPEC 

ALFA 

DEL 

XNA 

CORE 

CLAD 

XAI1 

LOSS 

1XAI  is  computed  in  the  FAM  module  only  if  there  is  no  pigtail  on  the  transmitter  and 
XAI  is  not  given  a value  either  by  a FAM  device  record  or  a DEFINE  statement. 


Other  values  are  passed  through  COMMON  for  use  in  RAM  and  SAM.  The 
passed  values  are  listed  as  input  variables  in  the  two  receiving  modules. 

3.7  RAM  Analysis  Module 


The  receiver  analysis  module  is  concerned  with  the  parameters  of  only  that 
part  of  a fiber  cable  system  consisting  of  the  receiver.  The  nine  different 
receiver  types  are  discussed  in  detail  elsewhere  in  this  document.  This 
section  deals  with  the  actual  execution  of  a receiver  analysis. 
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3.7.1 


RAM  Input  Data 


The  RAM  module  receives  input’  from  thre6  sources;  the  data  file,  the  FAM 
module,  and  the  DEFINE  statement. 

Input  from  the  data  file  is  received  from  two  device  records;  one  RAM  record 
and  one  SAM  record.  These  records  can  be  requested  by  using  the  GET  RAMFILE  NAME, 
GET  SAMFILE  NAME,  LIST  RAMFILE  NAME,  and  LIST  SAMFILE  NAME  commands.  Data 
can  also  be  entered  through  use  of  the  CREATE  statement.  The  operations  of  these 
commands  are  identical  to  the  description  in  Section  3.5.1  for  the  TAM  module. 

The  necessary  data  items  could  also  be  entered  individually  with  the  DEFINE 
statement.  The  user  assumes  the  responsibility  of  including  all  data  items  which  should  be 
defined. 

Data  is  also  passed  to  the  RAM  module  from  the  FAM  module.  As  mentioned 
in  Section  3.6.1  this  is  done  automatically  and  is  transparent  to  the  user.  If  the  FAM 
module  is  not  executed  prior  to  RAM,  the  designer  must  be  certain  the  data  items  which 
would  have  been  defined  are  entered  by  another  method. 

Table  3. 7. 1-1  lists  the  source  of  all  variables  defined  as  input  for  RAM.  The 
data  names  are  the  FORTRAN  names  recognized  by  FODAP  and  are  always  used  as  shown. 
Section  3.10  contains  a master  list  of  all  the  variables  and  their  definitions. 

Table  3. 7. 1-2  lists  all  variables  input  to  RAM  by  the  receiver  type  which 
uses  the  data.  The  designer  should  use  this  table  as  a checklist  before  attempting  to  enter 
his  data  into  FODAP  to  be  certain  values  exist  for  all  necessary  data  items. 

Table  3. 7. 1-3  is  a list  of  the  coded  input  variables  and  the  values  those 
variables  may  be  assigned. 
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Table  3.7. 1 -1 . Source  of  Input  Variables  for  RAM 


1,2 


TYPE 
GAIN 
XAD 
XI L 
XIB 

XISQ2 

RES 

XM 

SRMS^ 

RNB 

XMSC 

XMA2 

BETA2 

* , 

OPT1 

TBER 
TSNR 
Cl' AN3 
PFO 


Input  From 

Input  From 

Input  From 

RAM  File 

FAM 

SAM 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

1 


These  are  coded  variables.  Values  are  given  in  Table  3. 7. 1-3. 

^The  five  variables  noted  are  input  from  the  SAMFILE  if  CHAN  is  greater  than  one.  There 
will  be  one  set  of  variables  for  each  channel . 

^If  CHAN  is  greater  than  one  the  user  must  be  sure  to  enter  the  variables  necessary  for 
each  type  of  modulation.  These  may  all  be  input  with  the  DEFINE  statement. 


Table  3.7. 1-2.  Input  Variables  by  Receiver  Type  for  RAM 


Analog 

Baseband 

Analog 

AM 

Analog 

FM 

Analog 

DSB 

Analog 

SSB 

Digital 

FSK 

Digital 

PSK 

Digital 

Baseband 

(OOK) 

Digital 

Baseband 

(BPPM) 

TYPE 

R 

R 

R 

R 

R 

R 

R 

R 

R 

GAIN2 

OPT 

OPT 

OPT 

OPT 

OPT 

R 

R 

R 

R 

XAD 

R 

R 

R 

R 

R 

R 

R 

R 

R 

XIL 

R 

R 

R 

R 

R 

R 

R 

R 

R 

XIB 

R 

R 

R 

R 

R 

R 

R 

R 

R 

XISQ 

R 

R 

R 

R 

R 

R 

R 

R 

R 

RES 

R 

R 

R 

R 

R 

R 

R 

R 

R 

XM 

R 

- 

- 

- 

- 

- 

- 

- 

- 

SRMS 

R 

R 

R 

R 

R 

- 

- 

- 

- 

RNB 

R 

R 

R 

R 

R 

R 

R 

- 

- 

XMSC 

— 

R 

R 

R 

R 

R 

R 

_ 

XMA 

- 

R 

- 

- 

- 

- 

- 

- 

- 

BETA 

- 

- 

R 

- 

- 

- 

- 

- 

- 

R 

OPT1 

- 

- 

- 

- 

- 

- 

- 

R 

R 

OPT 

OPT 

OPT 

OPT 

OPT 

- 

- 

- 

- 

TBER 

- 

_ 

— 

- 

OPT 

OPT 

OPT 

OPT 

TSNR  „ 

OPT 

OPT 

OPT 

OPT 

OPT 

- 

- 

- 

- 

CHAN 

OPT 

OPT 

OPT 

OPT 

OPT 

OPT 

OPT 

OPT 

OPT 

PFO 

R 

R 

R 

R 

R 

R 

R 

R 

R 

(R)  - Required  input  data 

(OPT)  - Optional  input  data 
(-)  - Not  applicable 


These  are  coded  variables.  Values  are  given  in  Table  3.7. 1-3. 
If  undefined,  GAIN  is  assumed  to  1 .0. 

If  undefined,  CHAN  is  assumed  to  1 .0. 
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Table  3.7. 1-3.  Coded  Input  Variables  and  Values  for  RAM 


Variable 

Coded  Value 

Definition 

TYPE 

1.0 

Analog  Baseband 

2.0 

Analog  AM 

3.0 

Analog  FM 

4.0 

Analog  DSB 

5.0 

Analog  SSB 

6.0 

Digital  FSK 

7.0 

Digital  PSK 

8.0 

Digital  Baseband  (OOK) 

9.0 

Digital  Baseband  (BPPM) 

OPT 

0.0 

Do  not  optimize  gain 

1.0 

Optimize  gain 

3.7.2 


Execution  of  the  RAM  Module 


As  described  in  Section  3.3.1  analysis  of  a receiver  is  initiated  by  use  of 
the  command  directive 

RAM 


The  RAM  module  does  not  attempt  to  read  any  data.  As  explained  in  Section  3.5.2  the 
user  is  assumed  to  have  already  entered  the  input  data.  RAM  performs  the  tasks  of 
calculating  the  parameters  which  describe  the  receiver  and  the  information  received, 
printing  of  the  output  table,  and  making  available  parameters  used  by  the  SAM  module. 
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3.7.3  RAM  Output  Data 

The  RAM  module  prints  an  output  table  at  the  end  of  every  receiver  analysis 
which  contains  input  and  output  variables  of  interest  to  the  system  designer.  Table  3.7.3 
is  a list  of  those  output  variables. 

Other  values  are  passed  through  common  for  use  in  the  SAM  module.  These 
passed  values  are  listed  as  input  variables  by  SAM. 

Table  3.7.3.  Variables  Listed  in  RAM  Output  Table 


Variables 

TYPE 

OPT 

GAIN 

BAND 

PFO 

SNIV'BER1 

XAD 

XISQ 

XI L 

xie 

RES 

RNB 

TSN^/TBER1 

DPR 

The  variable  appropriate  for  the  receiver  type  is  printed. 

3.8  System  Analysis  Module 

Unlike  the  other  three  modules  of  FODAP  the  SAM  module  concerns  itself 
with  all  parts  of  a fiber  cable  analysis  system.  A discussion  of  the  variables  and  output 
listed  by  SAM  is  found  elsewhere  in  this  document.  This  section  deals  with  the  execution 
of  a system  analysis  only. 


3.8.1 


SAM  Input  Data 


The  SAM  module  can  receive  data  from  five  sources;  the  data  file,  the  TAM, 
FAM,  and  RAM  modules,  and  the  define  statement. 
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can  be  requested  by  using  the  GET  SAMFILE  NAME  or  LIST  SAMFILE  NAME  commands. 
Data  can  also  be  entered  through  use  of  the  CREATE  statement.  The  operations  of  these 
commands  are  identical  to  the  description  in  Section  3.5.1  for  the  TAM  module. 

The  necessary  data  items  can  be  entered  individually  with  the  DEFINE 
statement.  As  stated  in  Section  3.5.1,  the  user  assumes  the  responsibility  of  including  all 
data  items  which  should  be  defined. 


Data  is  also  passed  directly  to  the  SAM  module  from  the  TAM,  FAM,  and 
RAM  modules.  This  is  done  automatically  and  is  transparent  to  the  user.  Because  of  the 
nature  of  the  SAM  module  it  is  unlikely  a user  would  wish  to  execute  SAM  without 
executing  the  other  three  modules  first.  However,  should  this  case  arise  the  designer  must 
be  certain  the  missing  data  items  are  entered  by  another  method. 

Table  3.8.1  gives  all  variables  input  to  SAM  listed  by  source.  The  data 
names  are  the  FORTRAN  names  recognized  by  FODAP  and  are  always  used  as  shown.  See 
Section  3.10  for  a master  list  of  all  the  variables  and  their  definitions.  The  designer 
should  use  this  table  as  a checklist  before  attempting  to  enter  his  data  into  FODAP  to  be 
certain  values  exist  for  all  necessary  data  items. 


3. 8. 1.1  Input  Data  for  Multichannel  Analysis 

The  special  input  variables  describing  multichannel  modulations  can  be 
entered  or  altered  by  a variation  of  the  DEFINE  statement. 

Format: 


DEFINE  < DATA-NAME  > (< CHANNEL-NO > )=< VALUE > 
Description: 


< DATA-NAME  > 

< CHANNEL-NO  > 

< VALUE  > 


The  data  name  of  one  of  the  five  multichannel 
variables. 

The  channel  number  being  defined. 

The  value  of  the  variable  for  the  given  channel. 
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Table  3.8.1 . Input  Variables  for  SAM  by  Source 


Input  From 
SAM  File 


Input  From 
TAM 


Input  From 
FAM 


Input  From 
RAM 


SPLC 

CONN 

SNfy/BER1 

XMAR 

BL 

BAND 

RT 


(R)  - Required  input  variable 

(OPT)  - Optional  input  variable 


Either  TSNR  and  SNR  or  TBER  and  BER  will  be  input  depending  on  the  receiver  type  in  the 
RAM  module. 

^The  set  of  five  variables  TYPE,  SRMS,  XISQ,  XMA,  and  BETA  are  entered  only  if  CHAN 
is  greater  than  one. 

One  of  the  three  variables  PTO,  PFI,  or  PFO  will  be  used  in  the  link  budget  for  available 
power  source.  The  variables  are  listed  by  priority. 
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Examples: 

1.  DEFINE  TYPE  (1.0)=  1.0 

This  defines  the  modulation  type  for  channel  one  to  be  analog  baseband. 

2.  DEFINE  BETA  (10.0)=  1.0  E6 

This  defines  the  BETA  variable  of  channel  10  to  have  a value  of  1 .0  E6. 


3.8.2 


Execution  of  the  SAM  Module 


As  described  in  Section  3.3.1  analysis  of  a system  is  initiated  by  use  of  the 

i 

'command  directive 

/ 

SAM 

The  SAM  module  as  the  others  does  not  attempt  to  read  any  data  since  it  assumes  the  user 
has  already  entered  it.  SAM  performs  a few  simple  computations,  prints  the  output  table 
called  the  link  budget,  and  passes  data  from  its  input  file  to  the  other  modules. 


3.8.3  SAM  Output  Data 

The  SAM  module  prints  at  the  end  of  every  analysis  an  output  table  called 
the  link  budget.  The  items  listed  in  this  link  budget  can  be  found  in  Table  3.8.3. 

Other  values  from  the  SAM  input  file  are  passed  through  COMMON  for 


use  in  TAM,  FAM,  and  RAM.  The  passed  values  are  listed  as  input  variables  from  SAM 
in  the  input  sections  for  each  module. 


Table  3.8.3.  Output  Items  in  Link  Budget 


Heading 

Data  Name 

Available  Power  Source 

PTO,  PFI,  PFO 

Input  Coupling  Loss 

XAI 

Fiber  Loss 

FIBR 

Splice  Loss 

SPLC 

Connector  Loss 

CONN 

Output  Coupling  Loss 

XAO 

Receiver  Power 

PFO 

SNR2 

SNR 

2 

Target  SNR 

TSNR 

CO 

Q£ 

LU 

CQ 

BER 

3 

Target  BER 

TBER 

Required  Receiver  Power 

DPR 

Margi  n 

XMAR 

System  Bandwidth 

SBW 

Hhe  first  nonzero  variable  is  used. 

2 

SNR  and  TSNR  printed  only  with  analog  receivers. 
3 

BER  and  TBER  printed  only  with  digital  receivers. 
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3.9 


Other  FODAP  Commands 


Several  commands  used  by  FODAP  are  not  concerned  with  either  data  flow  or 
the  execution  of  analysis  modules.  Their  purpose  is  to  make  it  easier  for  the  designer  to 
use  the  fiber  optics  package.  Each  command  is  listed  below  along  with  an  explanation  of 
its  use. 


3.9.1  INPUT  Statement 

The  purpose  of  the  INPUT  statement  is  to  allow  the  designer  to  enter 
commands  in  either  interactive  or  batch  mode  or  some  combination  of  the  two.  Batch  mode 
in  this  case  means  FODAP  will  neither  request  user  responses  nor  give  prompting  messages. 
Any  errors  encountered  will  cause  program  termination.  The  user  may  change  modes  at  any 
time  and  as  often  as  desired.  The  default  mode  is  interactive. 

Format: 

1.  INPUT Y>  IACT 

Causes  FODAP  to  enter  interactive  mode. 

2.  INPUT  Y>  CARD 

Cause  FODAP  to  enter  batch  mode. 

All  FODAP  commands  are  mode  independent.  Data  entry  while  creating  new 
device  records  is  more  difficult  in  batch  mode  only  because  the  user  is  not  prompted  to 
enter  each  variable.  Table  3.9.1  shows  the  order  in  which  values  should  be  entered  while 
in  batch  mode.  All  values  for  a module  are  entered  at  one  time. 

3.9.2  CLEAR  Statement 

The  CLEAR  statement  is  used  to  clear  all  input  data  items,  all  arrays  and 
flags,  and  reset  all  default  values  in  FODAP.  Only  the  mode,  batch  or  interactive,  is 
not  reset.  It  is  recommended  that  the  designer  use  the  CLEAR  command  after  each  problem 
to  avoid  any  confusion  resulting  from  old  data  values.  The  CLEAR  statement  consists  of 
the  single  word 


CLEAR 
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Table  3.9.1 . Order  of  Entry  of  Module  Variables  While  in  Batch  Mode 


TAM 

FAM 

RAM 

SAM1 

SAM2 

SRCE 

CORE 

TYPE 

CN 

TYPE 

TAIL 

DF 

GAIN 

SN 

SR  MS 

XLEN 

FP 

XAD 

XL 

XISQ 

PTI 

DEL 

XIL 

XAO 

XMA 

ANGL 

ALFA 

XIB 

OPT 

BETA 

DS 

XLMC 

XISQ 

TBER 

XIO 

CLAD 

RES 

TSNR 

BTR 

XNA 

XM 

CHAN 

RT 

PN1 

SRMS 

BW 

PDD 

RNB 

SPEC 

PSEC 

XMSC 

XLAM 

AF 

XMA 

TNA 

AS 

BETA 

TFP 

AC 

R 

TDF 

XAI 

Record  1 is  defined  for  every  SAM  file. 

2 

Record  2 is  defined  only  when  CHAN  >1 .0.  The  five  variables  must  be  redefined  for  each 
channel  number.  Each  set  of  five  is  one  record. 


3.9.3  END  Statement 

The  END  statement  causes  FODAP  to  close  any  files  it  has  been  using  and 
terminate  execution.  The  END  statement  consists  of  the  single  word 
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3.10 


Variable  Names,  Units,  Definitions 


Table  3.10  is  a list  of  all  input  and  output  variables  used  or  computed  by 
FODAP.  The  FORTRAN  data  names  are  in  alphabetical  order.  Given  for  each  name  is 
the  module  device  record  where  stored  if  the  item  is  an  input  variable,  the  modules  which 
use  the  data  item,  the  physical  units  assumed,  and  a definition  or  description.  Also  given 
is  the  symbol  used  to  identify  the  parameter  in  the  Design  Handbook,  Section  2.0,  if  a 
symbol  was  assigned. 

Notice  that  some  variables  are  listed  as  both  input  and  computed  variables. 
This  usually  means  a value  will  be  computed  for  the  variable  if  it  is  otherwise  set  to  zero. 
In  all  cases,  if  a variable  is  not  equal  to  zero  FODAP  will  not  attempt  to  redefine  it. 

Some  variables  are  also  shown  as  both  not  being  input  by  file  and  not  being 
computed.  These  variables  have  special  purposes  in  the  modules  where  they  are  listed  as 
being  used.  See  the  appropriate  section  for  details.  Enter  values  for  these  variables  with 
a DEFINE  statement. 
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FORTRAN 

Name 

Device 

File 

Modules 

Where 

Computed 

Modules 

Where 

Used 

Units 

Definition 

AC 

FAM 

— 

FAM 

dB/conn 

Connector  insertion  loss 

AF 

FAM 

— 

FAM 

db/km 

Fiber  attenuation  coefficient 

ALFA 

FAM 

— 

FAM 

— 

Index  gradient  parameter 

ANGL 

TAM 

— 

TAM 

FAM 

degrees 

LED  intensity  output  null 
angle,  0n. 

AS 

FAM 

— 

FAM 

dB/splice 

Splice  insertion  loss 

BAND 

— 

RAM 

RAM 

SAM 

Hertz 

Receiver  bandwidth,  f0  , _ 
o ab  K. 

BER 

— 

RAM 

RAM 

SAM 

errors/bit 

Bit  error  rate,  BER 

BETA 

RAM 

SAM 

— 

RAM 

Peak  deviation/highest  mod 
frequency  (FM  mod  index); 
stored  in  SAM  device  file  for 
multichannel  analysis. 

BL 

FAM 

FAM 

SAM 

Hertz 

Fiber  bandwidth 

BTR 

TAM 

— 

TAM 

watts/sr-cmz 

LED  radiance,  B 

BW 

TAM 

TAM 

TAM 

SAM 

Hertz 

Transmitter  bandwidth, 
f3  dB  Tx 

CHAN 

SAM 

— 

RAM 

SAM 

Number  of  channels 

CLAD 

FAM 

FAM 

| 

FAM 

Fiber  cladding  refractive  index 
index,  nj 

CN 

SAM 

— 

FAM 

SAM 

— 

Number  of  connectors  in  the 
fiber  cable 

3 


Table  3.10.  FODAP  Variable  Definitions  (Continued) 


FORTRAN 

Name 

Device 

File 

Modules 

Where 

Computed 

Modules 

Where 

Used 

Units 

Definition 

CONN 

— 

FAM 

a:""' 

dB 

Total  connector  power  loss 

CORE 

FAM 

FAM 

FAM 

— 

Fiber  core  refractive  index,  nj 

DEL 

FAM 

FAM 

FAM 

— 

Fractional  index  difference,  A 

DF 

FAM 

— 

FAM 

microns 

Fiber  cable  diameter,  d^ 

DPR 

— 

RAM 

RAM 

milliwatts 

Receiver  input  power  for  target 
BER/SNR. 

DS 

TAM 

— 

TAM 

FAM 

microns 

Source  diameter,  d$ 

DTER 

FAM 

FAM 

nanoseconds 

Intermodal  dispersion 

DTOT 

FAM 

FAM 

nanoseconds 

Total  dispersion,  <r  ^ 

DTRA 

H 

FAM 

FAM 

nanoseconds 

Intramodal  dispersion,  <7. 

i ntra 

FIBR 

B 

FAM 

FAM 

dB 

Total  fiber  attenuation 

FP 

FAM 

— 

FAM 

— 

Packing  fraction,  f 

P 

GAIN 

RAM 

RAM 

RAM 

— 

Avalanche  Gain 

GOPT 

— 

RAM 

RAM 

— 

Optimized  gain  request,  G 

LOSS 

FAM 

FAM 

dB 

Total  loss  due  to  connectors, 
splices,  output  coupling,  and 
fiber  attenuation. 

OPT 

SAM 

— 

RAM 

— 

Indicator  variable  for  gain 
optimization . 

PDD 

FAM 

FAM 

FAM 

— 

A d 4 /d  A 

PFI 

— 

— 

FAM 

watts 

Power  input  to  the  fiber  cable. 

4 


Table  3.10.  FODAP  Variable  Definitions  (Continued) 


FORTRAN 

Name 

Device 

File 

Modules 

Where 

Computed 

Modules 

Where 

Used 

Units 

Definition 

PFO 

— 

FAM 

FAM 

RAM 

watts 

Power  at  receiver  end  of  the 
fiber  cable,  P^ 

PN1 

FAM 

FAM 

FAM 

— 

Adnj/d  A 

PR 

TAM 

TAM 

watts 

Global  power  from  transmitter. 
Without  pigtail,  power  avail- 
able to  fiber  cable.  With 
pigtail,  power  before  pigtail 
connection  P$. 

PSEC 

FAM 

FAM 

FAM 

— 

A2d2n]/d  A2 

PTI 

TAM 

— 

TAM 

SAM 

watts 

Input  power  of  transmitter,  P^ 

PTO 

TAM 

TAM 

FAM 

watts 

Power  output  from  transmitter 
and  available  to  fiber  cable, 

PA 

R 

RAM 

— 

RAM 

bits/sec 

Bit  rate,  R 

RES 

RAM 

— 

RAM 

amp/watt 

Responsivity  of  photodiode,  V 

RNB 

RAM 

— 

RAM 

Hertz 

Noise  equivalent  bandwidth  of 
receiver,  b 

RT 

TAM 

TAM 

TAM 

seconds 

Rise  time,  tr 

SN 

SAM 

SAM 

— 

Number  of  splices  in  fiber 
cable 

SNR 

— 

RAM 

RAM 

SAM 

— 

Signal/noise  ratio,  SNR 

SPEC 

TAM 

FAM 

nanometers 

Rms  spectral  width  of  source, 
° A 

SPLC 

FAM 

FAM 

SAM 

d& 

Total  splice  power  loss 

t 


Table  3.10.  FODAP  Variable  Definitions  (Continued) 


FORTRAN 

Name 

Device 

File 

Modules 

Where 

Computed 

Modules 

Where 

Used 

Units 

Definition 

SRCE 

TAM 

— 

TAM 

FAM 

— 

Indicator  variable  for  trans- 
mi  tier  type 

SRMS 

RAM 

SAM 

— 

RAM 

Rms  value  of  signal  assuming 
/s/max  = 1;  stored  in  SAM 
device  file  for  multichannel 
analysis, /<s2  >' 

TAIL 

TAM 

— 

TAM 

FAM 

— 

Indicator  variable  for  trans- 
mitter pigtail 

TBER 

SAM 

— 

RAM 

SAM 

errors/bit 

Target  or  requested  bit  error 
rate 

TDF 

TAM 

— 

TAM 

microns 

Diameter  of  the  transmitter 
pigtail,  df 

TFP 

TAM 

— 

TAM 

— 

Packing  fraction  of  pigtail,  f 

TNA 

TAM 

TAM 

— 

Numerical  aperture  of  pigtail, 
NA 

TSNR 

SAM 

— 

RAM 

SAM 

— 

Target  or  requested  signal/ 
noise  ratio 

TYPE 

RAM 

SAM 



RAM 

— 

Indicator  variable  for  receiver 
type;  stored  in  SAM  device 
file  for  multichannel  analysis. 

XAD 

RAM 



RAM 

— 

Diode  constant  (excess  gain 
exponent),  oc  p 

XAI 

FAM 

TAM 

FAM 

TAM 

FAM 

dBm 

Input  coupling  loss 

XAO 

SAM 

SAM 

dBm 

Output  coupling  loss 

XIB 

RAM 

— 

RAM 

nanoamps 

Bulk  leakage  current  of  photo- 
diode, 1^ 
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Table  3.10.  FODAP  Variable  Definitions  (Continued) 


FORTRAN 

Name 

Device 

File 

Modules 

Where 

Computed 

Modules 

Where 

Used 

Units 

Definition 

XIL 

RAM 

— 

RAM 

nanoamps 

Surface  leakage  current  of 
photodiode,  l|_ 

XIO 

TAM 

— 

TAM 

watts/sr 

Source  intensity,  lQ 

XISG 

RAM 

SAM 

RAM 

nanoamps 

Input  referred  preamp  rms 
mean-square  noise  current; 
stored  in  SAM  device  file  for 
multichannel  analysis,  1^ 

XL 

SAM 

— 

FAM 

km 

Length  of  fiber  cable,  L 

XLAM 

TAM 

— 

FAM 

nanometers 

Source  emission  wavelength,  A 

XLC 

— 

FAM 

FAM 

km 

Mode  coupling  length,  L(~ 

XLEN 

TAM 

— 

TAM 

FAM 

— 

Indicator  variable  for  lensed 
transmitters 

XLMC 

FAM 

— 

FAM 

dB/km 

Excess  loss  induced  by  mode 
coupling,  fe 

XM 

RAM 

— 

RAM 

— 

Peak  IM  index,  M 

XMA 

RAM 

SAM 

RAM 

— 

Mod  index  of  AM  waveform; 
store  in  SAM  device  file  for 
multichannel  analysis,  MQ 

XMAR 

RAM 

RAM 

SAM 

Difference  between  the  power 
available  and  the  power 
necessary  to  achieve  a target 
SNR  or  BER. 

XMSC 

RAM 

RAM 

Subcarrier  mod  index  (0-1) 
optical  mod  index  weighting 
relative  to  100%  intensity 
modulation,  MJC 

XNA 

TAM 

— 

TAM 

Numerical  aperture  of  fiber 
cable,  NA 

i 
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3.11 


FODAP. 


Assignment  of  Physical  Units 

Table  3.11  lists  the  logical  files  and  FORTRAN  unit  numbers  referenced  by 


Table  3.11.  File  Assignments 


FORTRAN 
Unit  Number 


Logical  File  Used 


Command  Input  (interactive  mode) 
List  Output 

Command  Input  (batch  mode) 


Data  File 


The  data  file  must  be  assigned  to  a mass  storage  device  which  allows  random 


access  I/O. 


The  user  is  responsible  for  assigning  the  listed  FORTRAN  unit  numbers  to  the 
appropriate  physical  devices. 

The  device  assignments  for  Command  Input  (interactive)  and  List  Output  on 
the  Honeywell  6180  under  Multics  are  default.  The  user  need  not  assign  these  unit  numbers 
before  using  FODAP. 

Assignment  of  a data  file  to  unit  number  17  before  running  FODAP  is 
required.  Remember  to  specify  a keyed  read/write  file. 


3.12  Logic  Diagrams 

The  logic  diagrams  on  the  succeeding  pages  are  not  intended  to  be  detailed 
flowcharts  of  every  FODAP  routine.  Instead  it  is  hoped  the  diagrams  will  allow  a user  to 
understand  in  a general  way  what  is  happening  within  the  program.  To  the  programmer 
the  diagrams  should  serve  as  a road  map  into  the  actual  program  listings,  without  going 
into  so  great  a detail  as  to  obscure  the  basic  logic  of  the  routines. 
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6826-11 


Logic  Diagram  for  EXEC 
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Logic  Diagram  for  SET 

JJ 
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START 


r 


6826-20 


Logic  Diagram  for  ALLOT 
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Logic  Diagram  for  DIRECT  (Sheet  I of  3) 
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6826-30 


Logic  Diagram  for  DIRECT  (Sheet  2 of  3) 
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o 


START 


CALL  “DCODE* 
GET  SECOND 
WORD  OF 
COMMAND 


^ CALL  ^ 
*SECFIL* 

IS  SECOND 
WORD 
NEWFILE 


CALL  * DC  ODE* 
GET  THE 
FILE  NAME 


r CALL  > 
•DIRECT* 

IS  THE  FILE 
NAME  UNIQUE 


^ CALL  ^ 
♦DCODE* 

IS  THERE 
ANOTHER 
. WORD  , 


CALL  “DIRECT 
INITIALIZE 
ALL 

DIRECTORIES 


RETURN 


CALL  “DIRECT* 
ENTER  NAME 
IN  DIRECTORY 


RETURN 


Logic  Diagram  for  CREATE 
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CALL  *DIRECT* 
LOOK  UP  FILE  NAME 
IN  APPROPRIATE 
DIRECTORY 


CALL  *DIRECT* 
WRITE  OVER  FILE  NAME 
AND  ADDRESS  IN 
DIRECTORY 


6826-12 


Logic  Diagram  for  DELETE 
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START 


Logic  Diagram  for  GET,  LIST  (Sheet  1 of  2) 
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GET  A NUMBER 
FROM  THE 
COMMAND  LINE 


r IS  > 

NEXT 
DELIMITER 
AN  EQUAL 
. SIGN  . 


SAVE 

NUMBER  FOR 
SUBSCRIPT 


^ IS  > 

THIS 

PART  OF  A 
SUBSCRIPTED 
. VARIABLE  . 


IDENTIFY 
VARIABLE  IN 
SUBSCRIPTED 
VARIABLE 
LIST 


PUT  VALUE  IN 
SUBSCRIPTED 
VARIABLE 
LIST 


RETURN 


SAVE  INDICES 
OF  LABEL 
VECTOR 


Logic  Diagram  for  DEFIN  (Sheet  1 of  2) 
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YES 


1 


Logic  Diagram  for  TAMDAT,  FAMDAT,  RAMDAT,  and  SAMDAT  (Sheet  1 of  3) 


INITIALIZE 

TAM 

VARIABLES 


Logic  Diagram  for  TAMDAT,  FAMDAT,  RAMDAT,  and  SAMDAT  (Sheet  2 of  3) 


Logic  Diagram  for  TAMDAT,  FAMDAT,  RAMDAT,  and  SAMDAT  (Sheet  3 of  3) 
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Logic  Diagram  for  ETAM,  EFAM,  ERAM,  and  ESAM 
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Logic  Diagram  for  TAM  (Sheet  2 of  2) 
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START 


Logic  Diagram  for  FAM  (Sheet  1 of  2) 

| 

J 
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o 


PTO  = YES 


Logic  Diagram  for  FAM  (Sheet  2 of  2) 
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Logic  Diagram  for  RAM  (Sheet  2 of  4) 
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IS 

COMPUTED 
BER  = TBER 
OR 

TBER  = 0.0 


COMPUTE  PFO 
NEEDED  TO  MAKE 
TBER = BER 
COMPUTE  MARGIN 


CHANNEL 
INDEX  >1.0 


WRITE  BASIC 
RECEIVER 
DATA 


WRITE  DATA 
CHANGED  BY 
MULTICHANNEL 
ANALYSIS 


Logic  Diagram  for  RAM  (Sheet  3 of  4) 
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3.13  Progrom  Listings 

The  following  pages  contain  a complete  set  of  listings  of  the  FODAP 
routines.  The  routines  are  grouped  by  functions;  the  EXEC,  the  MANAGER,  TAM,  FAM, 
RAM,  and  SAM. 
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DOUBLE7  PRECISION  NR  1 1 > * NTSK  (£0>  * BLANK 
COMMON  ••  FPR'NFLAG  • 1 CO 
COMMON  -LABEL  LAB  (£5*  3> 

COMMON  ■ INPUT-  L INE  • 7£  • * L D I « LDO*  LDF  > LDA 
DATA  BLANK.- SH  / 

EA  TR  LAB  • 1 * 1»  ' 4HC0RE-' 

DATA  NTSK •■■'8HCPEATE  *3HGET  * 3HSAVE  *8HLIST  * 

VS3HDELETE  * 

8HDFFINF  * 8HPUPITE  * 8HF WRITE  * SHF AM  . AHPAM 

•C*  SHTAM  « 

AH SAM  * 8H INPUT  » 8HEND  * 8HPL 0 T » 8H0PDFP 

■-C?  CHS  VS  . 

AHcL.EAP  * yH  * :■  H 

DATA  IND-1HN'' 

C SET  UNIT  NOS* ZERO  FLAGS 

CALL  BLOCK 
NCMD= 1 8 
B=LAB  (.1*1  • 

NCRB=7 
NTER= 1 
LD  T =5 
LIG*6 
LDF=17 
LDA-=4 

CALL  CLEAR 
UP  I TF  L DO  * A 0 0 LO 

£000  FORMAT  * “ O^^FODAP  EXECUTI  VE^»"  * - * " READY  FOR  INPU 

•••C  T " > 

£1  IF  (NFL. AG  <£-•  . EO.  1 .)  STOP  ERROR 
CALL  CONCRD 

CALL  DC  ODE  C I ND  * NBEG  * NEND  * NLEN  * I.  A 0 0 0.> 

I F • NL FN . bT . 9 • GO  TO  9 U U M 
NA  •'  1 ■ =BL  ANK 

ENCODE  ( NA  • I 1 * } 0 1 1 O ' 1 1 I NE  1 1 1 « K=NE'Eb*  N F N J"1  > 

DO  300  I=1*NCND 
£51  FORMAT  < 1 * A3*  £K*  A8.> 

I F .-NA  •:  1 ■ . EO . N TSK  < I > 1 GO  TO  > 0 0 
100  CONTINUE 
-0  TO  9010 

I;  i.i"  GO  TO  1 1 * £ * 8*4*5*  r-  * « ■'  * 9 * ID*  11*  1 c*  13*  14*  15*  IF*  1 7 * 1 •••  * 1 *■* 
• C * £ i..1  ;•  « I 

1 CALL  CREATE 
GO  TD  El 
£ CALL  GET 
GO  TO  £1 
? CALL  SAVE 
GO  TO  El 

4 CALL  LI  SI 
30  TO  £1 

5 CALL  DELETE 
GO  TO  -'1 
CALi_  DEFINE 
GO  10  £ 1 


7 CRLL  PURITE 
GO  TO  £1 
S CRLL  FI.IPITE 
GO  TO  £1 
9 CRLL  SET  a> 
GO  TO  cl 

10  CRLL  SET  <■£> 
GO  TO  £1 

11  CRLL  SET  O') 
GD  TO  £1 

1 £ CRLL  SET  <4> 
GO  TD  £1 

13  CRLL  INPUTD 
GD  TO  £1 

14  STOP 

15  CRLL  CPLOT 
GO  TO  £1 

16  CRLL  ORDER 
GO  TO  £1 

17  CRLL  SYS 
GO  TO  £1 

19  CRLL  CL ERR 
GO  TO  £1 

19  CONTINUE 

£0  CONTINUE 
GO  TO  £1 

1000  FOPMRT •F£R1> 

9000  Chi  L ERROR  •"  1 
GO  TO  £1 

9010  CRLL  ERROR •£> 
GO  TO  £1 
END 
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SUBROUTINE  CONCRP 

COMMON  / 1 NPUT/'L  I NE  7£'  j LPI . LCD?  LBF ■ LI'H 
1 PERP<LPI>  1 000.  ENP=1  0000 -LINE 
1000  FORMRT  •:  7£R1  > 

RETURN 
10000  GO  TD  1 
END 


•SUBROU  T I NE  UCOI'E  •:  I ND » NBEG . NE ND . NLEN . ♦ • 

COMMON  I NPU  T.-"L  I NE  « 7£>  « LPI  * LPO»  LDF»  LPR 
INTEGER  BLRN^ . COMMR.  FLRG.  EC'URL 
PATH  PLRNK  . COMMR.  NN  --1R  . 1H.  - 1HN  - . EC’URL  . - I H= 
DRTR  OF’RR . C F'RR  1 H '*  1 H • •• 

N?EG= 1 
N£NB*7£ 

IF  aNP.NE.NN>  GO  TO  £ 

N=NBEG 
M=NE'NP 
£ FL.  RG=0 

PO  100  I = N» M 

I F < FLRG . EG' . 0 . RNP . L I NE  < I ) . EG' . BLANK  > GO  TO  1 0 0 
I F •:  FL  RG . EG' . 1 . RNP  .'Ll  NE  ' I > . EG' . BLRNK  . OR . L I NE  • I > . 

\C.OR. 

L I NF  • I ' . EG' . EOURL . OR . L I NF  ■ I > . EC . OPRR . OF . 1. 1 Hf  < I 
•••.*.>  :■  GO  TO  l 

I F ' FLRG • E . 1 GO  TO  1 U 

cl  RG=  1 

NBEG*] 

100  GONTlNUE 
4 RETURN  1 
3 IF'I.HF.N'GD  TG  1 

1 F • L 1 NE  ''  I ' . Nfc . c G'URL  'GO  T 0 4 
ll-  I + 1 
GO  TO  £ 

1 NENp-=r  -! 

E N "N  E N ['  — * ' G E G * 1 
M=r  + i 

RETUEN 

ENp 


1 0 . COMMR 
EC'.  CERR 
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3UBR0UT I NE  SECF I L <NA » I . ♦> 

D I MENS  I ON  NR <£> . NSEC <5*  £>  * LR <£> 

D I MEN  S I ON  MSEC <4> - LSEC <4> 

DATA  LSEC.-4HFRM  . 4HRAM  « 4HTRM  . 4HSRM  ✓ 

DATA  NSEC  -4HFAMF.  4HRAMF?  4HTAMF.  4HSRMF . 4HNEWF . 4HILE  . 4H 

m-JLE  . 

4HILE  . 4H I LE  .4HILE  -" 

DATA  MSEC--4HFAMD  . 4HRAMD . 4HT AMD . 4HSAMD- 
DO  100  1=1.5 

I F -'  NR  1 > . NE . NSEC  <1.1  > > GO  TO  1 0 0 
I F <NA  <£.:■  . EQ . NSEC  < I . £ > 't  RETURN 
100  CONTINUE 
RETURN  1 

ENTRY  MODULE (MR. I . ♦> 

DO  £00  1=1.4 
I F •:  MR . EQ . MSEC  < I .)  > RETURN 
£00  CONTINUE 
RETURN  1 

ENTRY  MODA  <LA.  I > 

DO  500  1=1.4 
I F <LR . EQ . LSEC  < I ) .)  RETURN 
300  CONTINUE 
RETURN  1 
END 


SUBROUTINE  SYS 
DIMENSION  NFL<4.) 

COMMON  -'SYS  'DR DR  < 4 ;■  . JEN D 
COMMON  ERR -'  NFL  AG  < 1 0.) 

NFL  An  3 1 = 0 
NFL AG <4 > = 0 
NFL AG  1 5> = 0 
1 = 1 

5 IF  ’.ORDP  • I > . EQ.  1.  O')  CALL  EFAM  <*4.  NFL  - I>  :• 
I F < OPDP  '■  I -'  . EQ.  £.  0)  CALL  ERAM '•  t4 ? NFL  1 I.)  > 
I F • OR  DR  < I ')  . EQ . 3 . 0)  CALL  E TAM  <*4 . NFL  ' I > > 
I F < OP  DR  ■ I - . EQ . 4 . 0 - CALL  ESAM  <*4  > 
IF'I.EQ.  JEND.'GD  TO  1 
IF -NFL  ' I > . EQ. 0- GO  TO  1 

i=i-m 

GO  TO  5 

1 DO  10  K=.IEND,  1.-1 

I F < NFL  1 K . c Q . 1 ) GO  TO  5 
I =l  - 1 

10  CONTINUE 
4 RE  TIJRN 
END 
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SUBROUTINE  hLLOT  <N.X»Lj#> 

COMMON  ^EPP^NFLft6 < 1 0 > 

COMMON  ' INCT'XINC  <1  G» 7) ,CT<5> *CNT 
DIMENSION  X <L> 

IF  <CT <N> . EP. 0. 0> GO  TO  9997 
IF  -'NFLRG  <N+2>  . EG'.  0)  GO  TO  9998 
XN=N 

SKIF-1 0000. 0 
£ XNEXT=0.0 
IND=0 

1 DO  10  1=1 j 10 

I F < X I NC  < I « £ > . NE . XN . OP . SK. IP.LE.XI NC  < I > 1 > . OR . XNEXT . GT 
' CNC  < I > 1 > > 

GO  TO  10 
XNEXT =X  I NC  < I > 1.) 

I HD- 1 

10  CONTINUE 
I = IND 

I F •:  I ND . EO . 0>  GO  TO  9996 

I F (X I NC < I » 6 > . GT . 0 . 0 . RN D . <X I NC • I * 7.)  . EO . X I NC < I » 5 > . OP . 

■•.CNC  '•  I <■  7>  + 

X I NC  < I » 6 > > . GT . X I NC  < I » 5>  > > GO  TO  1 0 0 

I F 1 X I NC < I $ 6) . L T . 0 . 0 . RND . <X I NC < I « 7 > . EO . X I NC < I » 5 > . OR . 

■'CNC  < I * 7>  + 

X I NC 1 I « 6>  > . L T . X I NC 1 I * 5> ) > GO  TO  10 0 
X I NC  '■  I » 7>  =X  I NC  < I » 7.)  +X I NC  < I • 6> 
k’ = X I NC  I « S> 

X <K>  »X  I NC  < I » 7> 

GO  TO  9999 

1 0 0 X I NC  I • 7.)  =X  I NC  ( 1*4) 

skip=xinc  < i * i :> 

K=XINC 1 1 < 3> 

XU:)  =X  I NC  Cl*  7') 

GO  TO  8 
C 

C li'E  RRE  FINISHED 
99  97  NFLRU  1 N+c’ 1 =c‘ 

• t 0 T 0 99  '*■'  9 
999  9 NcLRG  '■  N+c'  * = 1 
9999  FETUFn 
9 996  NPL  96  >'  N+?  1 - 0 
RETURN  1 
END 
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SUBROUTINE  SET  <N) 

COMMON  -SYS  DR PR < 4> ? JFND 
SflVE=DPDP<l) 

K= JEND 
JEND= 1 
ORDP  '•  1 > =H 
CHLL  SYS 
□PDF • 1 > =SRVE 
JEND-K 
RETURN 
END 


SUBPOUT I NE  DR7  ChL  C I ? I OPT . ♦ 
IF  Cl.  EC!.  1-CRLL 
IF  •:  I . EQ.  £>  ChLL 
IF  Cl . EC.  ?':>  CHLL 
IF  < I . EC. 4 > CRLL 
PE  TIJPN 

9*99  RETURN  1 
END 


FRMDflT  'IOF'T  ? 

PRMDRT  1 I OPT  ? $ 9 9 9 9 
TRMDRT  • IOF'T * B9 9 9 9 9 
SRMDRT  aOPT»f9999> 


‘ MFROUT INF  INRIJTD 

DOUBL  E F'REC  I S I ON  NRME  C 1 > , NCRF'D » I RCT?  NCRRB3 
COMMON  - ERR  NFLRC  < 1 0> 

COMMON  ■•••  I NPUT.-  L.  I NE  < ?£>  ? LDI  ? LDD?  LDF  * L DR 
D9TR  NCRPD?  NCRPDS  ? I RCT.-'SHCRPP  ? 8HCRRD  i 

D H T R n 1 H 0 •••  * N B L N K •••"  S'  H 

CHLL  D C 0 D E '.O'  N B E C ? N E N P ? N L E N • i 9 0 0 0 1 

IF  ' NLEN.  '5T.  5 ’ GO  TO  9000 

NRMF  1.:-  =NBLNK 

PNC  ODE  - NRME?  1 000.'  <L  INE  >. K ■ ? K=NBEG?  NENP> 

I F 1 NRME  1 1 1 . NE . Nl  RPD . RND . NRME  • 1 > . Nr. . NcRPI'  ;• 1 

l.DI=7 

NFL HR >:  1 ' = 1 

GO  TO  9'-*H9 

1 I - • NRME  • 1 ■ . NE  . I R1.  T ' GO  TO  9 0 0 0 
LPI--5 

Nrl.RG  ■ 1 • =0 
>.  L Nr1  N 

* min  FOF'MRT  • Fc'Rl  ;■ 

9m 00  L ERROR 'l'1 
r E T URN 
END 


[:  ? NBLHK 
« 3H I RCT 

CO  TO  1 
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SUBROUTINE  'LEHR 
DIM FUSION  TRftN  '•  ? 0 * 5.1 
COMMON  • F.RR-  NFLftG  1 0 • 

COMMON  ■-  SYS  OR  UR  <*">  > -JENP 

COMMON  ■ I NOT  '-  X I NC  1 1 0 > ?>  t CT  <5>  > CNT 

COMMON  FhMS-h  1 > 

COMMON  ■-ThMS  -'C  •:  14  • 

C OMMON  RRM  S ••  £ •:  33.' 

C OMMON  - S PEC  L •-  TRhN  - DPR 
K =NFLHb  '•  1 
DO  10  1=1-10 
X 1 NC  • I - 2 ■ = 0 . 0 
10  NFLHb  f I = o 
NFL  RG  < 1 > — K 
OR  DR  1 > = 3.  0 
□PDR  < 2>  - 1 . 0 
OR DR  1 3 > =2 . 0 
DR DP > 4 > =4. 0 
•JEND=4 
CNT  = 0.  0 
DPP  = 0 . 0 
DO  3 0 1 = 1-5 
DO  35  J=  1 - 3 0 
35  TP  BN  (..I-  I ■ = 0.  0 
3 0 C T ■"  I > = 0 . 0 
DO  30  1=1 >31 

3 0 ft 1 I > = 0 . 0 

DO  4 fi  I = 1 - 1 4 

4 0 C • I > = 0 . 0 

DO  50  1=1-33 

5 0 B 1 I > = 0 . 0 

RETURN 

END 
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SUBROUTINE  ORDER 
INTEGER  BLANK 
DIMENSION  NA • 1 > 

COMMON  1 NPUT.--L  I NE  <72>  , LD I » LUO * LDF - L DA 
C OMMON  EPP-NFLAG  < 1 0) 

COMMON  "SYS  •-'OR  DR  - 4 ' , JEND 
DATA  BLANK -"4H  0-- 4H0 

J = 0 

C GET  FIRST  MODULE 
10  NA  •:  t > = BLANK 

CAL L DC DDE < 0 • NBFG - NEND » NL EN * $9999) 

I F ( NLEN . GT . 3 . OR . • J+ 1 ) . GT . 4)  GO  TO  9 0 1 0 
J=J+1 

FNCODE  1 NA  < 1 * 1 0 0 0)  <L  I NE  <k  > - K=NBEGi>  NEND  ) 
C IDENTIFY  MODULE 

C ALL  MO  DA  'NA  ■'  1 > » I < $ 9 0 1 0 > 

OF' DR  '■  J 1 = I 
JEND=  J 
GO  TO  10 


1 


SUBROUTINE  ERROR 'N> 

C DM  MON  T NPUT  1. 1 NE  >■??:>  * LD I * LBO  j L BF * L BR 
COMMON  ' ERR - NFLRG  < 1 O ' 

I F CNFLftG  ■■  1 > . EO . 1 > NFL  Rb  < £>  = 1 
IF ''N.'ST.cO'GD  TO  100 

SO  TO  (1»£»3»4»5*6»7«3*9»  1 0 » 1 1 « 1 £ ? 1 3 » 1 4 * 15*  16*  17*  1 8 * 19 
v ».  9 C U 1 9 M 

100  M-N-fiO 

GO  TO  1 £'  1 t c'c  » 83 * 04 * 05 > £6 » £7 » £8 * £9*  3 0.»  » M 
1 MPTTE'-L  P0.9001> 

SO  TO  10000 
£ UR  TTE'  LPO*  900£.> 

SO  TO  l 0000 

3 UPITE  'LBD*9003> 

SO  TO  10000 

4 Mp  I TE  * L BO * 9 U i *4.-' 

SO  TO  10000 

5 MR  I TE  • LBO  * 9 0 05.> 

SO  TO  l 0000 

r>  MR  I TE  ' L BD  * 9 U L'trO 
SO  TO  10000 
MP  I Th  I.L.  BO  * 9 0 07v 
SO  TO  1 0 0 0 M 
x MR  I TF  • L.  BD  9 0 Ho.1 

SO  TO  I 0O00 
9 MR  I TE  '■  L B0 * 9 0 U9.> 

SO  TO  1 0 0 0 0 

I 0 ME  I TE  < LI'U  * 90 1 0 

GO  TO  10000 

II  MRITE -LBO* 901 1> 

•90  TO  1 0 0 0 0 

18  MP I TF 'LBO’ 9018' 

■90  TO  1 0000 
12  MR  I TE  <L  DO * 0 1 3) 

SO  Tn  ] it  0 00 
1 4 i.ipi  TF  a BO*  901  4> 

•- j TO  1 Ort 00 
15  MPITr 'I.BD*  8015. • 

SO  TO  1 no no 
1 r iiiP*  T T E 'i  LBO  * 9 ' ' 1 6 
SO  TO  10000 

i r Mp i te  ■ LBO* 901  ro 

90  TO  1 POOO 
1 ::  MR  I TE  '•  L 03  * 9 1 : 1 1 
so  Tn  1 ft  ' V 0 
1 9 MR  I TE  ‘ LBO*  1 1 -*  ’ 

SO  TO  1 0"00 
£ 0 MR  I TE  1 L I’D » 9 0£  0 • 

SO  TO  1 Oi'T'f 
01  MP  I TE  <L  BD*  90,:  1 ■ 

SO  TCI  l»i BOO 
££  MR  I TE  1 LBO  • n££l 
90  TO  1 0 i.i  0 0 
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£3  WF' I TE  1 LDD « 9 0£  3 > 

GD  TD  10000 
£4  WRITE  '-LDDj  90£4> 

GD  TD  10000 
£5  MR I TE 'LDD » 9 0£5> 

GD  TD  10000 
£6  WRITE  <L  DD>  90£6> 

GD  TD  1 0000 
£7  WR'  I TE  L.DO  > 9 0£7) 

GO  TD  1 0000 
c'3  l '.IP  I TE  ' L DO  j 9 0£8) 

GD  TD  10000 
£9  WRITE •LDD.90£9> 

GD  TD  10000 
-I  i_i  iilR  I T E '■  L D 0 ? 9 0".'  o 1 
10000  RETURN 

9001  EDRMPT-"  ERROR** IMPROPER  FORMAT  FDR  COMMON P L I NE** " > 
=m0£  FORMAT*"  E R R 0 F' ♦ ♦ C 0 M M R N D DDES  NOT  EXIST**".) 

9003  FDRMRT."  ERROP**F ILENAME  MDF:E  THRN  4 CHARACTERS**") 

9004  FDRMRT."  ERFDR**FILE-TYPE  INCORRECTLY  ENTERED**"') 

9005  FDRMRT  ( " FRRDR**PEF 1NE  STATEMENT  INCOMPLETE** ") 

3006  FORMAT*"  ERROP**ERROR  ON  TRMFILE  CRRD  READ**" ' 

9007  FDRMRT'"  ERROR  ♦♦PURL  ICRTE  NRME  IN  DIRECTORY**".) 

3003  FDRMRT."  ERPOP**ERRCR  DN  FRMFILE  CRRD  PEAD**'-^" 

9009  FDRMRT'"  EPPOP**D  I RECTORY  NRME  IS  I NCDPREC*!  ♦♦  “ > 

■=•010  FDRMRT'"  ERPOP**F I LE-NRME  HRS  NDT  BEEN  GIVEN**") 

9011  FDRMRT."  EPRDR**P I RECTDRY  IS  FULL**") 

901  £ FDRMRT-"  EPRDR**NEWF ILE  IS  NjJT  R VRL1D  FILE-TYPE**"> 

9013  FDRMRT'"  ERROR** INCREMENT  TABLE  IS  FULL**") 

9014  FDRMRT  < " ERRDR**TH 1 3 DIRECTORY  NRMF  IS  ILLEGAL**") 

9015  FDRMRT  < “ ERF'DR**F  I LE-NRME  DDES  NOT  EXIST**") 
a 0 1 6 FDRMRT'"  ERROR** TDD  MRNY  CHRRRC TERS** " ) 

9017  FDRMRT-"  ERP.OP**F  ILFS  HAVE  NDT  BEEN  INITIAL  IZED**' "• 
9019  FORMAT."  EPRDR**ZERO  INCREMENT  VALUE  ILLEGAL**" * 

9019  FDRMRT  • " ERROR **IJN I DENT I F 1 ED  VARIABLE  NAME**"  ) 

9 0£ 0 FORMAT*"  ERROR** VALUE  NOT  ENTERED  C ORFEC TLY ♦* " > 

9 0£ 1 FORMAT-"  ERRDR**ERRDR  DM  RRMFILE  CARD  READ**") 

90££  FORMAT  ■ " ERFDF'**NDT  ENOUGH  INPUT  DATA  PDF'  I AM  MODULE** 

9033  FORMAT."  ERROR**  I NC'OF  REC  T SPCE  TYPE  SPECIFIED**") 

90.54  FORMAT."  FPRDR**VRR I H E'LE  VALUE  OUTSIDE  ALLOWABLE  RANGE 

■L  **"> 

*i.i£5  FORMAT."  ERROR** INCORRECT  NAME**") 

^y£6  FORMAT  1 " ERRDF ♦* " 1 
Ry £7  FORMAT-"  ERROR**"' 

A II,-";  - .IP  MAT  . " EfFDF'**"  1 

9 'i.r'9  - D R M A T ' " E F'  R'  0 R * * ' ■ 

*. m ' ij  FDF'Mh  T 1 t-.F  RDF'** " 1 
ENL1 
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SUBPDUT  I ME  Ti  I PECT  < NTYPE . NRMEP.  I RCT » ♦ . ♦' 

B I MENS  I OM  I S MO  <99>  » MR  <2>  » 1 NRME  ' 99') 

COMMON  INPUT.  LIME  •:?£.)  * LIU  j LOO?  LDF. LBR 
COMMON  EPP  • NFL  RE  < 1 0 ■ 

COMMON  NF.IFRDD 

BRTR  I EL  ? I MOF.NVES.MO ••  4H  , ?9,4HVFS  . 4HN0 

NTYPE  - INDICATES  FILE-TYPE 
1 - FIBFP  FILE 
a-  PECEIVFP  FILE 

3 - TRANSMITTER  FILE 

4 - SYSTEM  FILE 
6 - ALL  FILES 

NRME  - FILE  OF  DIPECTOPY  NRME 


I RCT  - RCT ION  INBICRTOP 


1 - CREATE  NFL'!  DIPECTOPY 
a - ENTEP  NRME  IN  DIPECTOPY 
? - CHECK  NRME  FOP  PURL  I CRT  I ON 
4 - LOOK  UP  NRME  IN  PIPECTDPY 
S'  - DELETE  NRME  FROM  DIPECTOPY 

6 - RET  RD DRESS  FOP  NEW  FILE 

7 - LIST  DIPECTOPY 


1.  n fi 


o U U 0 


t 

1 1 ' ('  0 


:f:  0 0 1 

C TO 


• C r '> 


NRME=NRMEP 

Ic  L I RC  T . EC1.  £">  RD  TO  3 
IF-  IRCT.EC'.S:.  60  TO  13 
IF -I RC T . ME . 1 ■ RD  TO  R 
INI  TIRL.  ICE  DIRECT  OP  I EC 
DO  10 D [=1 , INOF 
I NRMF  '"  I "'  = IBL 
I 7N0  <1  • *’=•999 
l'END=0 

IF  < NFL  RE-  i •'  .EC.  1 RD  TO  3 
'.IF  ITE  M-DO.SOOO-' 

FORMAT  > iv.  "♦♦•♦YOU  RPE  Rf.  OUT  to  DESTROY  RH’r  E‘:-'  I T I NR  F 

. ’’ . » 

tx,  •’♦♦•♦ENTEP  yes  to  CONTINUE,  no  to  rpopt  COMMRNIi.  " •' 
PF RD  >'i.PI  . 1 00 1"  NANS 
FOPMRT  <:R4:. 

I F ' NAN i . £0 . NO > RETURN  5 
I F •:  HRN  S .EC.  NVE  S .>  EG  TO  £ 

UP ITE 'LTD- 5001 ' 

FOPMRT  L 1 v ■ "PLt.R.  E RN  ••  i'iF P YE  '.-  OF1  HO.  HO  1'iILL  RETURN  YOU 

CONTROL 

MODE . " 

30  TO  l 

I F ...N  TYPE . EC . t* . OP . N 1 YF'E . EC . 4 > L-iP  I TE  ■ L.  I'F  3 0 1 ' I c'ND « ' 1 NRME  < 
. i S NO ’ y ' . K * 1 . I NOP 1 

I F ■ NTYPE  . EC . 6 . OP . NT V PF . EC . 3 ' UP  T TF • L OF  S 01-1  END . • I NRMF • 
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, I SHO  < K :•  »K=1*  I HOF) 

I F ■ HTYPE . EQ . 6 . DR . HTYPE . EO . 0)  MR  I TE  CLDF  '1>  I END , < I HRME  C K ) 
, I 5 NO  ■: K > » K=1 , INOF) 

I F - MTYPE . EQ . 6 . DP . HTYPE . EQ . 1 ) MR  I TE  <L DF '101 ) I END* - I HftME  < 

K> 

, I SHOCK)  j K=1 » INOF) 

-3D  TO  9999 

6 IF CNTYPE.EQ.4>NSEC=301 
I F -'HTYPE  . EO . 3)  NSEC=0  0 1 
IF  -'HTYPE.  EQ.  0)  NSEC=1 

I F (HTYPE . EQ . 1 ) NSEC  = 1 0 1 

PERU  CL  OF ' NSEC)  I EHO  , •:  I HRME  • I)  t I SHO  < I ) - I = 1 * I HOF.) 

GO  TD  -■  9 9 99  , "3, 4, 4, 4,0,  14.)  , I hl  T 

3 I HRME 'HP EC) =HRME 
I SHD CNPFC) = T FROL 
GO  TO  10 

7 I HRME  < I ) =HRME 
ISNO  C 1 ) =NSEC+-I  + l 
MREC= I SHO  C I ) 

10  MR  I TE  - L OF  MSEC.)  IEHD*  < I HRME  Cl)  , I SHO  CD  < 1 = 1 , IMOF) 

CHECK  HR ME  FDR  OUPLICRTIDH 

4 DO  300  1=1* IEHD 

I F CNR ME . EQ . I HRME  C I ) ) GO  TO  5 
300  CDMT I HUE 

IF  - I PC T . EQ . 4 ) GO  TO  99'aS 
IF  - IhCT. EQ. 5) GO  TD  9050 
HRME  DDES  HOT  EXIST 
GO  TO  9 99'"- 
HRME  HRS  BEEN  FOUND 

5 IF -I RCT . EQ . 3 ) RETURH  1 
IF  - l,RCT.EQ.5)Gn  TO  13 
HREC= I 

l F RDD=  I S HD  - I 
GD  TO  9999 

RERIH'  TO  DELETE  FILE 

1 3 I SHO CHREC) =9999 
I HRME CHREC)=IBL 
GO  TO  10 

14  DO  000  1=1, IEHD 

IF  Cl SHD - I ) . HE . 9999) MR  I TE  CL DO , 1 0 0 1 ) I HRME - I > 

000  CONTI HUE 
GO  TO  9999 

El  HP  RH  EMPTY  CELL  TO  ENTER  HRME 
3 DO  400  1=1, I HOF 

I r • I j MO  - i .)  . E . 9999  1 GO  TO  9 
400  CONTINUE 
GO  TD  9993 
9 NREC=I 

IFRDD=NS EC+NREC+l 
GO  TO  9-99 

GET  L RST  CELL  FOR  TEND 
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10  on  500  I = JNDF » 1 » - 1 

1 F •.  I sun  • I .)  . ME . 9999.)  GO  TD  1 1 
500  CONTINUE 
I END= I NQF 
MR  I T E ■'  L 00 1 8 0 0£  :• 

GO  TO  ISO 

11  I END= I 

WRITE  PI  PEC  TORY 

1 2  0 I.IR  I TE  CL DF " NSEC  > I EN  D • «:  I NAME  OO  • I ‘ NO  1 >"■  4 =1  « I NDF> 

GO  TO  99*9 
1 001  FORMAT  1 • h4) 

9002  FORMAT  ( 1 X.  "♦♦♦♦WARN I NG^*^  THIS  DIRECTORY  IS  NON  FULL 

;> 

9 050  CALL  ERROR '■  15) 

9999  RETURN  1 
999*  RETURN 
END 


SUBPOUT I NE  EFRM  <♦ * N> 

COMMON  'ERP'NFLAG  < 1 CO 
COMMON  ''FRMS''fK31> 

COMMON  /TfiMS/Ca4> 

COMMON  /'RAMS  "B  <23> 

COMMON  ••'INCT  /'X INC  <1  0»  ?>  » CT  <'5>  * CNT 
CALL  ALLOT  a*  A*  31  *$1> 

CALL  FAM  CS9998> 

1 N=NFL  AC  < 3> 

GD  TO  9999 
ENTRY  FTAM  <♦*  N> 

CALL  ALLOT <3* C* 14*$2> 

CALL  TAM  C*9998> 
d N=NFLAG <5  > 

•30  TO  9999 
ENTRY  EPAM  f ♦ * N> 

CALL  ALLOT rd*B»£3*$3) 

CALL  RAM  <TS9998> 

3 N=NFL.RG  1 *4  1 
GO  TO  9999 
ENTRY  EC AM  < ♦> 

CALL  CAM  • :f 9998> 

9999  RETURN 
9998  RETURN  t 
END 


' T 


: UBROU  r I NE  TRMI'RT  • NOF'T  * ♦ '• 

THIS  SUBROUTINE  CALLED  BY:  CREATE*  L 1ST*  GET  > SAVE 

OPTIONS  ARE: 

1 - READ  INITIAL  DATA  AND  WRITE  TCI  FILE 
S'  - Read  data  fpom  file 
5 - WRITE  A FILE  LISTING 

4 - LIST  CURRENT  DATA 

5 - WRITE  CURRENT  DATA  T 0 FILE 

C DAMON  ERR  -NFL  A A - 1 0 • 

COMMON  1 NF'IJT  ■ L I NE  •:  73  ■ * LD I * L DO  * LDF  * LDA 

COMMON  •-  TAMSvTA  I L * XLEN  * X 1 0 * BTR . F T I * SRCE  * RT  * ANGL  * DS  * BW  * 

CTNA* 

TFR*  TDF  * RT I 

COMMON  ✓ FAN'S  - CORE  * DF  * FP  * DEL  > XL  AM  * S PEC  * ALFA  * XLMC  * CLAD  * X 
i'  NI.i*  PN1 

* FDD  • P SEC  ? AC  < Hp  « AC  « CN  * SN * XL  * XA I • XAD  * F'F  I « F'TO  * 

C ONN « 7 F'L  C * F I BR » TRA  * T EP  * TOT  * BL  * *j>A  I 
COMMON  NAME * IFAPD 
GO  TO  '.  1 * 3 *3*4*5'  * NOPT 

READ  INITIAL  DATA  FROM  CARDS  OP  TELETYPE 
INITIALIZE  DATA 


i os*o.  n 

ANAL  = O . n 
XI  0=0.  I'l 
£:TP=0.  i'l 
TNA=n. 0 
TFP=0. 0 
TDF -D. 0 

1 F 1 NFL  AG  '•  1 . NE  • 1 GO  TO  1 0 

PFAD  L D I * FF  R=a  0 0 O'  SRCE  • TAIL*  XLEN  * PT I * ANGL  * PS  * X I D * B 1 R * R 

i T * £:lii . 

• c EC * XL  AM * TNA • TFP*  TDF 
GO  TO  5 . 

1 u WR I TE  1 L DO  * ?■  0 0 0 ' 

N''AI.>=  1 

1 1 0 vF  AD  1 L I'  1 * ERR=a  1/  ij  1 * EN  D — '**  '• ..  Ri.  E * T A I L * XLEN  * PT  I 
'»if  I TE  1 1 .DO  * 't*  0 !■ ' * ' 

MWA|.  k -4 

1 0 aji  1 1_  £,  i , £ r R = -*  H i'i  1 • END -AAA 'rM  XL  AM  * i PEL  * FT  » BW 

I F ' TAT L . . 0 . 0 1 GO  T 0 6 

WF  I TE  • L DO  • 3 04  0) 

N'.iALK  =c. 

I 4 II  RC  A£;  r f;  J , J“£  £ “ f i'l  1 * £Np=  "‘A’"'?’  1 TNA*  TFF'»  TDF 

A IF' • SRCF.  EC.  1 . 0.  OR  . SRCF.  EG.  3.  0 "30  TO  5 
I F ' 7 c C E . £0 . 4 . 0 ' GO  TO 
i_  F ' 7 RCc.  • NE  . c! . O ' GC  T D 7J  0 04 
hi®  I T E ' i.  DQ  * p 0 1 0 ' 

N'i'HLr  ~c: 


1 1 0 READ  • L P I . EPP=9001 . ENB=9998>  RNGL » BS»  XIO«  FTP 
GO  TO  5 

7 MRITE -LBD.8020) 

NMRLK=3 

1 £0  PERB  < LI*  I . EPP=9001  . ENB=9998>  BS 

■5  MR  I TE  • l DF  I FRBB  > SPCE  . TR 1 L > XLEH . FT  I * ANSI.  » BS*  XID. BTP. PT. 
CBM. SPEC .XL RM 

.TNR. TFP. TBF 

GO  TD  9999 

3 CALL  BIPECT C?. NRME ? 4*  $9998. 49999 > 

3 PERU  <LBF • IFRBB> SPCE.  TRIL. XLEH, PTI . RNGL ? BS*  XIQ. FTP. PT. B 
CM. SPEC. XLRM 

. TNR. TFP*  TBF 

IF  • NDPT. EQ. 2> GO  TD  999* 

4 MP I TE  < LDD . 8 0 0 1 . EPP=9 0 03> SPCE . TR I L . XLEN . PT I . RNGL • BS . X I D 

C . FTP . PT . pM . 

SPEC . XL  RM . TNR . TFP . TBF 
GO  TD  99*9 

3000  FCPMRT  < " ENTER  VRLUES  FDP:  SPCE. TRIL. XLEN. PTI"> 

8 010  FOPM*T<f"  ENTER  VRLUES  FOR:  RNGL.  BS.  XID.  BTP"> 

9020  CDPMRT  < " ENTER  R VRLUE  FDP:  BS"> 

3030  FDPMRT  • ” ENTER  VRLUE S FDPs  XLRM.  SPEC.  PT.  BM"> 

3040  FDPMRT • " ENTER  VRLUE 1 FOR:  TNR?  TFP.  TBF ”> 

ft 00 1 FDPMRT  < ’ S PCE« “ .El 1 . 5. T£4. "TRIL*" *E1 1 . 5« T48 ? " XL FN= “.El 

Cl. 5?.-  . 

PT 1 = " » El t . 5. T24. "RNGL  =" . El  1 . 5. T49? " B2=" . E 1 1 . 5. ✓ . " 

C XID®" . 

E11.5.T24.”  BTP®".Ell.5.T48.  " PT=" . El  1 . 5.  " BW®",E 

Cl  1 T24 

• ' SPEC  =",  E 1 1.5.  T4S,  "•  LRM=".E1 1 .5.  ” TNR=".El  1 .S.T24. 

C"  TFp=". 

El  1*.  5*  T 43.  " TBF  = " «E11.5'<'?“  ♦ENB  FILE*"'* 

3 0 0 0 CRLL  ERROR  1 fc • 

GO  TD  99 98 
9001  MP  I TE  ■ LBD . 8009.' 

ft  002  FDPMRT  > "ij**  INPUT  ERROR.  PL  ERSE  TRY  R6RIN**"> 

GD  TD  * 1 00. 1 10.  120.  1 SO. 140* . NMRLK 
9003  CRlL  ERPDP 1 1 7> 

GD  TD  999ft 
<004  i.  Rl  L F PROP  1 9 1 
9993  RETURN  1 
-4-4UZ.  Rt Tl.itN 

ENB 
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9UBPDI.IT  I ME  FAMDAT  ■ NOPT * ♦ 

C THIS  SUBPOUT I ME  CALLED  BY:  CREATE*  LIST » GET  * SAVE 
C OPTIONS  ARE: 

C 1 - READ  INITIAL  DATA  AND  WRITE  TO  FILE 

C £ - READ  DATA  FROM  FILE 

C 3 - WRITE  A FILE  LISTING 

C 4 - LIST  CURRENT  DATA 

C 5 - WRITE  CURRENT  DATA  TO  FILE 

COMMON  .'E PP'NFLAG  < 1 0> 

COMMON  -'INPUTS LINE  (7£>  * LDI  * LDO * LDF*  LI'A 

COMMON  ^TAMS  'TA I L > XL  EN * X 1 0 * B TP  * FT  I * SRCE * F T * ANGL  * DS  * BW * 

m:tna*tfp,tdf 

COMMON  ■'FANS  'CORF  * DF  * FP  * DEL  * XL  AM  • SPEC  * ALFA*  XL  MC  * CLAD*  X 
\CNA*PN1 

* FDD  * PSEC * AC  * AF  * AS  * CN * S N * XL  * XA I * XAO  * PF I * PTO  * 

CONN * SPLC * F I BR  * TRA  * TER  * TOT  * BL  * GA I 

COMMON  •'  PAMS  'XAD  * X I L * X I B * X I SQ  * RES  * XM  ? SPMS  * R N B * XMS  C * XMH 
'■••C*  BETA*  R* 

TYPE * OPT  * GA I N * TBER * TSNR * PFO  * CHAN * 

GOPTjBER* SNR* BAND 
COMMON  NAME  * IF ADD 
GO  TO  <'  1 * £ » 3 > 4 * 5>  ? NOPT 

C READ  INITIAL  DATA  FROM  CARDS  OR  TELETYPE 

1 I F ■ NFLAG • 1 > . NE . 1 > GO  TO  10 

READ  (LDI*  ERR=9000:>CDRE*  DF*FP*  DEL*  ALFA*  XLMC  * CLAD*  XNA* 

PN 1 * PDD « PSE C * AF  * AS  * AC  * XA I 
GO  TO  5 

10  WRITE < LDO *80 00> 

NWALK  = 1 

1 0 0 READ 'LDI*  EFR=9 0 0 1 * END=9998> CORE  * DF * FF  * DEL 
WRITE -LDO *8020.) 

NWALK  = 3 

120  READ  ‘LDI  • ERR=9ijm1  < END=999y.*  ALFA*  XL  Mi.!*  i.  LAD*  XNA 
WP I TE ' LDO * 8030 ' 

NWALK=4 

130  READ  ' LDI  * ERR=9001 . END>99«S')  RN1  * FDD*  PSEC 
WP  I TF  • L DO  * 3 04  0 ) 

NWALK«5 

14  0 READ  fLD  I * ERR® 9 0 0 1 * END-  -*  -i  AF  • AS  • AC  * XA  I 

5 WP  I TE  <L  DF  ' I FADD  • CORE  * C LAD  * XNA  • I'F  * F P * DEL  * ALF  A * 

X*_MC  * PN1  • PDD*  PSEC*  AC  * AF  • A : » XAI 
GO  TO  99  99 

3 v Al  i_  DIRECT  ■ 1 * NAME*  4*  19'JOO*  '19999  1 

£ READ ■ LDF  I FADD 1 CORE • C LAD* XNA* DF  * F P * DEL  * AL  FA • 

XLMC * PN 1 * PDD* PSEC  * AC • AF • AS • XA I 
IF 'NOPT. EC. £• GO  TO  9999 

4 MR  I TE  CL  DP*  800  J * ERR =9  0 0 3.)  CORE  * CLAD*  XNA*  DF*  FF  * DEL  * AF  * 

hL  f A * XLMC  * F'N  1 * PI'  0 * R SEC  * A S * Ac  * X A I 
GO  TO  9999 


* 
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9000  FORMAT'"  ENTER  VALUES  FOP?  CORE » DF. FP, DEL "> 

8020  FORMAT  <"  ENTER  VALUES  FDR:  ALFA. XLMC. CLAD » XNA"> 

8030  FORMAT'"  ENTER  VALUES  FOR;  PN1 . FDD.  PSEC 
3040  FORMAT*"  ENTER  VALUES  FOflP  AF. AS. AC* XAIM> 

3001  FORMAT*:"  CORE®" » El  1 . 5.  T£4»  "CLAD®"*  FI  1 . 5*  T48*  " XNA=".E1 
.Cl.  5*  s* 

DF® " « E 1 1 . 5 > T84 . " FP="  . El  1 . 5.  T48,  " DEL®" » El  1 • 5> " 

\C  AF  = " . 

El  1 . 5«  T34 > "ALFA®". £1 1 . 5«  TA8t "XL MC= " . E 1 1 . 5 . ✓ . " PHl  = "rE 
Cl  1.5. 

T84,  " PDP="  .E11.5.T48.  "PSEC®"  »E1 1 . 5» «'»  " AS®"  . El  1 . 5*  T 

84 . . 

" AC=" . FI  1 . 5. T48. " XAI®*. El  1 . 5. " ♦END  FILE^"> 

AO 00  CALL  ERROR  * 8* 

GO  TO  9999 
9 o 0 1 WR I TE  * LDO  .80  U c‘  * 

3 0 08  FORMAT  INPUT  ERROR.  °IEA$E  TRY  AGAIN.  ♦♦"/> 

GO  TO  *'100.  1 0 0 ? 180.  130.  14 0 > . NWALK 
9 o 03  CALL  ERROR*. IT.' 

9*93  RETURN  1 w 

99*9  RETURN  w 

END 
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SUBROUTINE  RAMDAT  <NOPT t ♦> 

THIS  SUBROUTINE  CALLED  BY:  CREATE » L I ST » GET  * SAVE 

OPTIONS  APE: 

1 - READ  INITIAL  DATA  AND  WRITE  TO  FILE 

2 - READ  DATA  FROM  FILE 

3 - WPITE  A FILE  LISTING 

4 - LIST  CURRENT  DATA 

5 - WRITE  CURRENT  DATA  TO  FILE 


CDMMDN  ■'ERP--' NFL  AG  < 1 0> 

COMMON  .'INPUT /LINE  ('?£>  » LDI * LDO» LDF« LDA 

COMMON  /FAMS'CORE » DF*  FP* DEL > XLAM - SPEC » ALFA  * XLMC * CLAD » X 
CNA*  PN1 

, PHD - PSEC » AC  * AF , AS . CM j SN* XL  * XA I » XAO .PFI* PTO » 

CONN*  SPL C*  F I BR»  TPA* TER » TOT • BL»  GAI 

COMMON  /RAMS' HAD < X I L * X I B » X I SQ » PES » XM  * SPMS . PNB » XMSC * XMA 
•C » BETA*  P ' 

VVEEE 

SEGMENT  EEE  NOT  FOUND. 
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SUBROU T I NE  RAMDAT  < NOPT * ♦> 

C THUS  SUBROUTINE  CALLED  BY:  CREATE*  L 1ST. GET*  SAVE 

C OPTIONS  ARE: 

C 1 - READ  INITIAL  DATA  AND  MRITE  TO  FILE 

C £ - PERU  DRTR  FROM  FILE 

C 3 - MRITE  R FILE  LISTING 

C 4 - LIST  CURRENT  DATA 

C 5 - MRITE  CURRENT  DRTR  TO  FILE 

C 

COMMON  •'  FRR.-  NFLRG  < 1 I'D 

CDMMON  - I NPIJT  'L I NE  < 72>  > LDI  * LDO*  LDF  * LDR 
COMMON  - F AMS ' CORE * DF * FP*  DEL  * XL  AM * SPEC*  ALFA*  XL MC * CLAD * X 
•CNR*  PNt 

• F DD * P i EC  * RC  * RF  * AS  • CN * 2 N * XL * Xfi  I * XRO  * F'F  I * PTO  * 

C ONN , S PLC  * F I BP  > TRR  * TER  > TOT  * BL  * GR I 

COMMON  '•  RAMS 'X A D » X I L * X I B * X I SO  * RES » XM * SRMS  * RNB  • XMSC  * XMR 
■ C * BE  T A * R * 

TV  F’F * OPT * GR I N , TBEP * TSNP * F’FO*  CHRN . 

SORT, BER* SNR* BRND 
COMMON  NAME* IFRDD 
GO  TO  •}*£*£*  4 . 5.)  * NDPT 

C RF.RD  INITIRL  DRTR  FROM  CARDS  OR  TELETYPE 

1 I F < NFL  AG  >:  1 > . NE . 1 > GO  TO  1 0 

PERU  •:  L D I , ERR =9  0 0 CO  TYPE , GR  I N , XRD . X IL « X I B * X I SO  * RES  * XM > SR 

• CMS* 

PN B * XM  SC  * XNR * BE  TR  * R 

I F CTYPE.LT. 1. 0 . OR . TYPE. GT. 9.  CO  GO  TO  9000 
GO  TO  5 

C INITIRL IZE  RLL  RRM  VARIABLES  TO  ZERO 

10  XM=U. 0 
SPMS*0.  0 
F’HB-O.  U 
XMSC*0. 0 
XMR=0. 0 
BETA* 0. 0 
P=0.  0 

••.IP  I TE  1 LDD*  S C*  U 0 1 

C ENTER  PARAMETERS  COMMON  TO  RLL  RRM  ANAL  YSES 
NMRLf  = 1 

l 0 0 READ  1 L D l * ERR  ® 9 0 0 1 * E ND=  -*99'*;  1 T YF'E  * GR  I N * XRD  * X I L * X IB*  X I SO  * 

•.CPE  2 

IF  •'  T ;'PF . LT.  1 . 0.  DP.  TYPE.  GT.  9.  OU  GO  TO  900  0 
1 F ' TYPE . GT . t . 0 ' GO  TO  1 £ 0 

C ENTER  PARAMETERS  FOR  BASEBAND  ANALOG 

MRITE >L DO  *801 0 > 

NMRl.  b 

1 t 0 REAP  ' L D I * ERR  =9  0 0 1 * t i<0=  999 : "•  XM • SRMS  * RNB 
GO  TO  1000 
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ENTER  PARAMETERS  FDR  MULT  I -ANALOG 
1£0  I F < TYPE . ME . 2 . 0> GO  TO  140 
MR I TE  < LPO  *802 0> 

nmalk=? 

1 3 0 READ  < L D I ? EFR=9 0 0 1 - END=9998  > SRMS ? RHP - XMSC » XMA 
GO  TO  1000 

140  IF -TYPE . ME . 3 . 0> 60  TO  1 6 0 
MR  I TE  1 LDD ? 8 03 0> 

MMAL  K=4 

150  READ  < LDI  ? EPP=9001 ? END=9998>  SRMS?  RMB?  XMSC?  BETA 
60  TO  1000  • .. 

1 6 0 I F ( TYPE . ME . 4 . 0 . AMD . TYPE . ME . 5 . 0>  6D  TO  13  0 

MR  I TE  (LDI ? 8040> 

NMALK=5 

1 7 0 READ (LDI? ERP=9  0 0 1 ? EMD=9998> SRMS » PMB » XMS  C 

GO  TO  1000 

1  8 0 I F •:  TYPE . ME . 6 . 0 . AMD . TYPE . ME . 7 . O'  GO  TD  3 0 0 
WRITE  •' L DO ? £ 05 0> 

MMAL K =6 

1 9 0 REAP (L D I - ERR=9 001? ENP=9998>  PMB  ? XMSC 
GO  TO  1000 
c'  0 0 MR  I T E ( L DO  ? 8 08  0 
NWALK =7 

£ 1 0 READ  CLD I ? ERR=9  0 0 1 ? END=9998> R 
1000  COMTIMUE 

5 MR  I TE ( LDF I FADD> TYPE ? GA I M ? XAD ? X I L ? X I F ? X I SO • RES  ? 

XM ? SRMS ? PM B ? XMSC ? XMA ? BETA ? P 
60  TO  9999 

3 CAL  L D I RECT <£  ? MAME ? 4 ? 89998 ? 89999 ■ 

2  READ  (l.DF-  IFADD>  TYPE?  GAIM?  XAD?  XIL?  XIB?  XISO?  RES?  XM?  SRMS? 
C RMP  ? 

XMSC ? XMA ? BETA? R 
I F 1 MOP  T . EU  • £ ■'  GO  TD  9999 

4 MR  I TE  1 LDO  ? 8 0 0 1 ? EPR=9  0 03  > TYPE  ? GA  I M • ‘>;‘AB  ? X I L ? X I B * X I SO  ? RF.i- 
C ? XM  ? 

SRM i ? RMB ? XMSC ? XMA  ? BE  T A ? R 
mD  tO  9999 

8 ii  00  FORMAT'"  CENTER  VALUES  FOR:  SRCE?  GAIM?  XAD?  XIL  ? X l B?  XISQ? 

CRES " > 

3  0 0 1 FOF  MA  T •.  T 2 ? “ SPCE=  ” ? E 1 1 . 5 ? T£4  ? "GAIN*"?  El  1.5?  T48  • " XAD 

C- “ ? E 1 1 . 5 ? 

? T£ • XIL  = " ? E 1 1 . 5 « T£4 ? "XIB  = " « c 1 1 . 5 ? T48 ? "X I SO=  " ? F 

C 1 1 . 5 » ? T £ ? 

FES  ='  ? El  1 . 5?  T24?  "XM  ■"  ? El  1 . 5?  M8,  •’.*:FMS="  ? El  1 . 5? 

C s ? T £ ? 

RMB  = " ? E 1 1 . 5 ? T £4  ? " XMSC = " ? E 1 1 . 5 ? 

C /■  ? T £ ? 

BETA="?E11.5?T£4? "R  ='.£11.5? 


T43? "XMA  =" ? El  1 . 5? 
•?••  ♦END  FILE*‘"> 
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3010  FORMAT  i " ENTER  VALUE?  FOR:  >'M.  SRMS*  RNB"> 

3080  FORMAT-"  ENTER  VALUES  FDR:  SRMS  - PNI: » XMSC « XMA  " > 
30  30  FORMAT c"  ENTER  VALUES  FOR:  SRMS » RNB * XMSC • BETA " > 
304  0 FORMAT  C"  ENTER  VALUES  FOR:  SRMS - RNB - XMSC " > 

3050  FORMAT C"  ENTER  VALUES  FOR:  RNB- XMSC "> 

3060  FORMAT  < " ENTER  A VALUE  FOR:  R":- 
9000  CALL  ERROR  <31 ) 

60  TD  9938 
9 1 1 0 1 MR  I TE  - L T*0  - 0 08) 

3008  FORMAT- "0»* INPUT  ERROR.  PLEASE  TRY  AGAIN. 

GO  TD  Cl  0 0-11  0 • 1 3 0 -150-  170-  19 0 .« £ 1 0>  » NMAL.K 
9003  CALL  ERROR- 17) 

9998  RETURN  1 

9999  RETURN 
END 
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SUBROUTINE  SAMDRT (NOPT, NPT> 

D I MENS  I ON  XTYPE <3 0 ') , XX I SO <3 0> » XSPMS <3 0 > - XXMR ( 3 0> , XBETP 

\C  <30> 

COMMON  ■'ERP'NFLRG < 1 0> 

COMMON  v I NF'IJT  ' L I NE  *7£>  » LB  I , LUO  , LDF , LBR 

COMMON  xFRMS  COPE , HF  , FP , DEL , XLRM , SPEC , ALFA*  XLMC , CLRD , X 
vCNU » PN 1 

- FDD - PSEC , RC , RF  , RS - CN - SN , XL , XP I , XRD , PF I - PTO , 

CONN, SPLC , F I BP , TP  A, TEP, TOT , BL , GR I 

COMMON  yRRMS/'XRD  ,XIL»  X I E - X I SO  ,RES»  XM , SPMS , PNB , XMSC  * XMR 
vC , BET  A, P • 

TYPE , DPT , GR I N , TBEP , TSNR * FFO, CHRN , 

GOPT , BER»  SNP » BAND 

COMMON  x'SPECL  ''XTYF  E , XX I SO , XSPMS , XXMR « XBETR  * DPR 
; COMMON  NAME, IFRDD 

GO  TD  < 1 « 8 , 3 » 4 , 5> , NOPT 
1 I F (NFLRG C 1 > . NE . 1 > GO  TO  1 0 

PERD  ■:  L D I , FPF-9 0 0 0>  CN , SN , XL » XRD , OPT , TBEP , TSNR  * CHRN 
GO  TO  5 

1 0 WRITE  a DO, 800 0> 

NWRLK= ! 

1 00  PERD  (LDI , EPR=9001 , END=9998>  CN,  SN,  XL , XRO 
WRITE (LDO, 801 0> 

NWALK=8 

1 1 0 PERD < L D I , ERP=9 0 0 1 * ENB=9998>  OPT , TBEP - TSNR , CHRN 

5 WP I TF (LDF - I FRBD> CN , SN , XL , XRO , OPT , TBEP , TSNR , NC , (XTYPE  ( I 
\C> , XSPMS ( I > , XX I SO ( I > , XXMR ( I > , XBETR 1 I > , 1 = 1, NC> 

GO  TO  9999 

3 CALL  D I PECT (4 , NRME , 4 , *9 0 0 0 , $9999> 

3 PERD  CLEF-'  IFRDD>  CN,  SN,  XL,  XRO,  OPT,  TBEP,  TSNR,  NC,  (XTYPE  <\> 
vC , XSPMS ( I > , XX I SO  C I > , XXMR • I ) , XBETR ( I > , 1 = 1, NO 

I F (NOPT . EO . 8>  GO  TO  9999 

4 WRITE  (L  DO,  8001 , ERR=9  0 03">  CN * SN  * XL  • XRD , DPT  * TBEP,  TSNR,  CHA 

vCN 

GO  TO  9998 

8 0 0 0 FORMAT ( “ ENTER  VALUES  FOR  s CN , SN , XL , XRO " ■ 

3010  FORMAT ("  ENTER  VALUES  FOR:  OPT, TBEP. TSNR, CHAN" > 

8001  FORMAT ("  CN  =" , El  1 . 5, T£4« "SN  =" , El 1 . 5, T48, "XL  =", 

El  1.5,.",  “ XRO  ="  ,E1  1.5,T£4»  " DPT="  , El  1 . 5,  T48,  "TBEP-"  , 
Ell  .5,-',  "TSNR  = ” E 1 1 . 5 , T84 , " CHAN=  ” , E 1 1 . 5 * " • " ♦END  PILE^ 

\C  "> 

9 1 1 0 U L ALL  E F-”  F‘  0 F‘  ( 8 * 

GO  TO  9999 
9 1 n 1 1 lil k I T E ’ l_  DO,  8 008* 

3008  FORMAT  * " (!♦♦  INPUT  ERROR.  PLEASE  T FY  AGAIN.  ♦♦"  ) 

GO  TO  *10  0,11  O'*  * NWALK 
9"U3  CALL  EPF DP ( 1 7> 

9998  RETURN  NPT 

9999  RETURN 
END 
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SUBROUTINE  CPEhTF 
INTEGER  BLHNK 
Ii  I MENTION  NR-:?' 

COMMON  I NF'UT-'L  I NE  < ?£>  < LP I < LDO - LPF - L IiR 
COMMON  • EPFv NFL  RG  < 1 0 • 

DRTR  Bl  RNK  -4H  ■"  * 0 ■ 3 HO  - 

GET  CECGNP  MOPD  OF  CDMMRNP  LINE 
NH  ■"  1 - = FLUNK 
NR  ■:£>  =BLRNK 
HR  EL hNK 

C RLL  PC ODE ‘ 0 - NBEG - MEND « NLEN - 19 0 0 0 > 

IF1' NLEN  , hT  . 9.)  GO  TO  9 Pis 0 

ENC OPE  ' NR'  ) 0 M 0 > - L INF  ' K > ' K=NBEG*  NENP.) 

IDENTIFY  SECOND  i.'GPP 

CALL  TECFIL <NRj I > $901 0> 

TF  <1 . NE. 5>G0  TO  7 

PERL  NOW  ONLY  MI TH  CRERTING  DIRECTORIES 
CRLl  K OPE  1 O'  MPEG'  NENP*  NLEN?  ‘15  < 

I F <NL EN . GT . 3 • GO  T 0 9 PE  0 
NR  •:  1 • = F LRNK 

ENC  OPE  'NR'  1 OOP'  ‘LINE  • K • • I-  =Nf EG'  NENP> 
CRLl.  MODULE  1 NR  ■ l ‘ ' I . 19050> 

5 CRL  l P IPECT  • I • NR  • 1 > < 1 ? '19999 t 19999  • 
li.lp  I TE  -:.L  DO  ’ 8 0 0 OY 
GO  TO  9999 

A DP  R MEM  FILE 

7 CRLL  PC  ODE  ‘.O'  NBEG'  NENP'  NLEN*  1 
] F NL  EN.  G T . 4 • GO  TD  9 PEP 
hr ■ 1 > - FLRNM 

ENCODE  ‘NR*  t Pf.KO  - L i NE  • 1 > . K=MPEG'  NENP1 

TETT  FOP  ONI  CUE  NR ME 

CALL  f 1 1 PEC  T - I ' NR  ‘1  1 ' ' i.9o4P'  "19999 ’* 

CRLL  DIRECT  1 I * NR  1 1 1 '<■>»  1 ?i»7pj  19999:- 

C RLl.  DR  I RL  -1*1'  '19999 :- 

CALL.  I'  I PE  C T -:  I ? NR  - 1 - . r.  < '1999'**  > t R -*99  > 

'-ip  I TE  - L f-0  * 8 0 U 1 > IR  - 1 - 
GO  TO  9999 
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1000  FOPMRT  <72R1  > 

8000  FDRMRT C1X»  "♦DIRECTORY  CREATED'*  ”> 

8001  FORMAT  t IX » "♦FILE  " » 84*  " CREATED*" > 
9000  CftLL  ERROR <1> 

GD  TO  9999 
9010  CRi-L  ERROR  • 4.) 

GO  TD  9999 
9080  CftLL  ERROR (3> 

GD  TO  9999 
9040  CftLL  ERROR <7> 

GD  TD  9999 
9050  CRLL  ERROR  • 9> 

GO  TO  9999 
9080  CRLL  ERROR  Cl 0> 

GO  TD  9999 
9070  CRLL  ERROR  < U> 

GD  TD  9999 
9080  CftLL  ERROR  Cl 6> 

9999  RETURN 
END 
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SUBROUTINE  DELETE 
INTEGER  BLRNK 
DIMENSION  NR (£) 

COMMON  '•  INPUT 'LINE  <?£)  » LDI » LDO*  LDE«  LDR 
DRTR  BLRNK.' 4H  ✓ » O''  1 HO  ' 

CRLL  DCODE  (0 » NBEG » NEND » NLEN « 1.9 0 0 0) 

IF  (NLEN. GT. 7)  GO  TO  9040 
Nh  •:  1 > =BL  RNK 
NR  •■  £> = BLRNK 

ENCODE < NR < 1 > » 1 0 0 0>  ( L I NE  < K)  « K=NBEG - NEND) 
CRLL  SECF IL <NR» 1 - *901 0> 

IF  (I . EQ.  5)  GO  TO  9080 
GET  FILE  NRME 

CRL L DCODE <0 » NBEG . NEND - NLEN <1900  0> 

IF <NLEN. GT. 4 GO  TO  9030 
NR d) =BLRNK 

ENCODE  -NR  ( 1 > . 1 000-  <L.  INE  (K)  > K=NEEG?  NEND) 

LDOK  UP  FILE  IN  D I RECTIFY 

CRLL  D I PECT < I » NR  < 1)  >4, *9999 j 19999) 

DELETE  FILE 

CRLL  DIRECT  < I « NR  ( 1) , 5* *9999* *9999) 

WRITE CLDOp  8000) 

GO  T0  9999 
1 0 0 0 F ORMRT -72R 1 ) 

3 0 0 0 FORMRT  < 1 X • 1 ♦F I L E DELETED*" ) 

9 0 0 0 CRLL  ERROR < 1 ) 

GD  TO  9999 
9010  CRLL  ERROR (4) 

GO  TO  9999 
9030  CRLL  ERROR (12) 

GO  TO  9999 
90 ?0  CRL  L ERROR  ( 3) 

GO  TO  “>999 
9040  CRLL  ERROR- l G) 

9999  RETURN 
END 


SUBROUTINE  GET 
INTEGER  BLANK 

DIMENSION  NA  <3>  » LAB  <2)  , NAM  d) 

COMMON  .^INPUT^LINE  C72)  * LDI  * LDO, LDF  , LDA 
COMMON  •EPP'-NFLAG  < 1 O' 

COMMON  NAME, IF ADD 

DATA  LAB  /'4H  I PEC  , 4HT 

DATA  BLANK  ■■'4H  ',0-  lHD^ 

NFNT=0 
GO  TO  1 
ENTRY  LIST 
NENT=1 

1 CALL  DCODE  <0 - NBEG,  NEND,  NLEN , *9  0 0 0) 

I F t'NLEN . GT . 9)  GO  TO  9050 
NA  •:  1)  =BLANK 
NA (2)  = BLANK 
NA  C3>  = BLANK 

ENCDDE - NA,  1 000>  (LINE  <K  ) , K=NEEG, NEND) 

CALL  SECF I L <NA , I , * £ • 

CALL  DC ODE  CD - NBEG , NEND , NLEN , *4) 

I F CNLEN . GT . 4>  GO  TO  9030 
NAM  ( 1 '•>  =BL  ANK 

ENCODE (NAM, 1 000) (LINE (K) , K=NBEG, NEND) 

CALL  D I PECT < I , NAM , 4 , *9 06 0 , *9999) 

CALL  ROUTINES  WHICH  ACTUALLY  HANDLE  DATA 
I F (NENT . EC . 0) CALL  DhTCAL ( I , £ , *9999) 

IF • NENT . EC. 0) CALL  DATCAL < I , 3, *9999) 

IFCNENT.EG.  0)  WRITE  CLDO,  8000)  NA  Cl)  ,NA*£)  , NAM 
NFL AG  1 1+3) =1 
GO  TO  9999 

£ I F (NENT . EG . 0) GD  TO  9010 
CALL  MODULE ( NA ( 1 ) , L , *9 04 0) 

I F ( NA ( 8) . NE . LAB  Cl ) . OP . NA (3) . NE . LAB ( £) ) GO  TO  9 04 0 

3 IF  ('NFL  AG  ('£)  . EG.  1)  GO  TD  3999 

CALL  D I PECT CL , NAME , 7, *9999* f 9999  > 

GO  TO  9999 

4 CALL  DATCAL '1,4, *9999J 

GO  TO  999c‘ 
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:T|  IT.  Of,  lj.  IT.  iT.  IT.  iT.  Q; 


w 


1000  F0PMRT'7£R1> 

000  FORMAT  •'  1X«  2A4»  1X.R4.  IX.  “ RETRIEVED M> 
noo  CRLL  EPRDR  * 1) 

GO  TD  9999 
010  CRLL  ERROR <4> 

GO  TO  9999 
020  CRLL  ERROR <1£> 

GO  TD  9999 
030  CRLL  ERROR <3> 

GO  TO  9999 
040  CRLL  EPRDR':  1 4> 

GO  TO  9999 
050  CRLL  ERROR <1 6 > 

GO  TO  9999 
ObO  CRLL  ERROR (15> 

999  RETURN 
END 


SUBROUTINE  SAVE 
INTEGER  BLANK 
DIMENSION  NRC£> 

COMMON  •'INPUT'LINE  <72>  *LDI »LPD*LPF*LPA 
COMMON  ✓ EPP^NFLRG  C 1 0> 

DATA  NVES * NO' 4HYES  - 4HN0  BLANK .-'4H  ✓ 

BATA  Oz'lHO' 

MFLRG-0 

IDENTIFY  FILE  TYPE 
CAL L IiCDDE  <0  * NBE G * NENP * NLEN * *9  0 0 CO 
IF  CNLEN.GT.  ?>G0  TO  9060 
NA  >1 > = BLANK 
NA  C£>  =BLANK 

ENCODE  CNR*  1 000>  (LINE  CIO  - K=NBEG*  UEND> 

CALL  SECF I L CNR » I * *9 0 1 0.) 

GET  THE  FILENAME 

CALL  DCODE <0* NBEG* NEND*  NLEN*  S9000> 

IF  CNLEN. GT. 4>  GO  TO  9040 
NA  C 1 > =BL  ANK 

ENCODF  - NA  ■:  1>  * 1 00  CO  <L  INE  CK>  , K=NBEG*  UENIO 

GET  THE  FILE  ADDRESS 

CALL  D I PFCT  C I , NA  < 1 > * 4 > Si  1 * * 1 > 

WRITE  CL  DO*  SOOCO 
READ  CLP I* 1001> NANS 
IF  (NANS.  EO.NO.J  GO  TO  9999 
IFCNANS.EQ.NYES>60  to  a 
WRITE (LPO* 8001 > 

GO  TO  3 
MFLAG=1 

CALL  D I RECT  < I * NA  C 1 > * 6 * *905  0 * *9  05  CO 
CALL  DATCAL C I * 5* * 9999  > 

I F CMFLAG . EO . 1 > CALL  D I RECT  C I * NA  •'  1 > , 2 * *9999  * *9999) 
hip  I TE  * LDD  * 8 0 0£.> 

GO  TO  9999 
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10 cn  FORMAT  <73A1> 

1001  FORMAT  <A4) 

3000  FORMAT <1 X* "♦♦♦♦YOU  ARE  ABOUT  TO  WRITE  OVER  AN  EXISTING 
\C  FILE.  " > s'* 

IX* "♦♦♦♦ENTER  VES  TO  CONTINUE*  NO  TO  ABORT  COMMAND. "> 

3001  FORMAT <1X* "PLEASE  ANSWER  YES  OP  ND.  NO  WILL  RETURN  YO 
\CU  TO  CONTROL 

MODE. "> 

3 003  FORMAT  t IX*  "♦FILE  SAVED* " '• 

3000  CALL  ERROR  (1 > 

GO  td  9933 
9010  CALL  ERROR <4> 

GD  TO  3999 
9030  CALL  ERROR  a 3> 

GO  TO  9993 
3040  CALL  ERROR <3> 

GO  TO  9999 
9 05  0 CALL  ERROR  < 1 1 > 

GO  TO  9999 
90 GO  CALL  ERROR  < 16> 

9 399  RETURN 
END 
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SUBROUTINE  TAM<» 

COMMON  ' I NPUT--L I NE  < 72>  » LDI » L DO*  LDF » LDA 

COMMON  ✓ TRMS--  TR I L <.  XLEN > X I D > BTR * PTT  » SPCE » PT . ANGL » DS . 

BM  > TNR  > TFP » TDF  > PT I 

COMMON  'F  AMS  ■'COPE  > DF, FR*  DEL » XLAM»  SPEC*  ALFA*  XLMC»  CLRD»  X 
CNU  * PN 1 

, PDD » PSEC > RC > RF  * AS « CN * SN * XL »XRI» XRO  ,PFI»PTO» 

CONN? SPL C * F I BP  * TPR • TER*  TOT  * BL* GR I 


PTI  - POWER  INPUT  TO  TRM  ROUTINE 
PP  - GLOBAL  AVAILABLE  POWER 
PTO  - POWER  OUTPUT  TO  FIBER  CAELE 


SOURCE  TYPES 
1 - EDGE  LED 
£ - SURFACE  LED 

3 - LASER  ILD 

4 - L.ASEP  YAG 


LENS  SYSTEM 

0 - NO 

1 - YES 


PIGTAIL 

0 - NO 

1 - YES 


I F < PT . EG! . 0 . 0 . AND . BW . EO . 0 . CO  GO  TO  9000 
PT I =PT 
BW I =FW 

I F • PW I . EO . 0 . CO  BW  1 = 0.35  - RT 
I F CRT  I . EO . 0 . CO  PT  I = 0 . 35'BW 
1 PTO=PT I 
PP=FTI 
NSPCE=SPCE 

I F CTR I L . EO  .0.0.  AND . CNSPCE . NE . £ . OR . PT  I . NE . 0 . 0>  > GO  TO  99 


GO  TO  < 6 * e‘»  3*  4.)  * NS PCE 

6 P T0=0.  l^O.  5»PTI^TNA^£#TDF^£#TFPy  0.  14^90.  CO  ♦♦£ 

GO  TO  £3 

£ I F • PT  I . EO.  0 . 0 . AND . BTP.  EO . 0 . 0 . AND . X I D . EO . 0 . CO  GO  TO  9 0 0 0 
I F CANGL . LE . 0 . 0 . OP . HNOL . GT  .90.  CO  GO  TO  9 0 1 0 
FN=90. 0' ANGL 

H - 1 . 0 

I F CFN . NE . 1 . CO  A=COS  < 3.14 1 £♦  0 . 5»  • FN- 1 . 0>  /FN>  ✓ • FN—  1 . CO  -C  □ 
f'3.  1 41  ■=♦ 

0 . • FN+ 1 . CO  ••'FN.1  - ( FN-*- 1 . 0 1 -c' . 0 / F N ♦ ♦ £ - 1 . 0 > 

PS=PTT 

IF  <PT  I.  NE.  G.  CO  GO  TO  5 

IF-BTP.NE.  0.  COPS  =3.  1416^E»A»BTR»DS^.=v 4.  0c  8 
IF  < X I D . NE . 0 . Ci :•  PS-3 .141 6*A#X 1 0 
5 PP=PS 
PTO=PS 

IF  (TAIL.  EO.  0.  CO  GO  T O 9999 
r.=TNA**£ 

IF  ' FN.  NE.  1 . 0 - C-COS  • TNh»  (FN-J  . O ' CFN-1  . Co  -C  DS  1 TNA*  -FN+ 
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i . n • • 

• FH+1 . O ' -3.  (IS  <FH++£-l . 0:> 

Li=  1 . 0 

1 F ' TPF  . LT . D$>  '^'♦♦3 

PTO=PS#C^TFP^Ii  'R 
GO  TO  £3 

3 I F 'XL EH . EO . 0 . 0> F'TO=PT I ♦ 0 . 1 5*TFP 
IFCXLEH.HE.  0.  0>  PTO=PT  I ♦ 0.  S^TFP 
GG  TP  33 

4 RflT=TPF^3'D$~3 

IF  CRfiT. GT. 1. 0>RRT=1. 0 
PTO=TFP*PTI»PRT 
33  PMP=PTI 

IF'PTI.EO. 0. 0>  PWP=PS 
GRI=XRI 

JFCGRJ. EO . 0 . 0 . RND. THR . L T . RH6L>  GR I = l 0 . O^RL OG 1 0 f PWR/P7 □> 
9993  MP l TE 1 LDD • 1 0 0 > SPCE * TR I L * BW I » PT I , PP , PTO 
100  FOPMRT ( " O^TRM* " * ' f " SPCE* " * E 1 5 . 9 * T34  * " TRIL=" * E 1 5. 9* T4 

■■•C  3 * " BW=  " * 

E15.9 *'*“  FT  I = " « E 1 5 . 9 * T 34  * " PR=" * E15. 9* T48* " PTO="* 

- CE 15. 9> 

I.IR I TE  < LDO - 3 00  • XID*  BTP * XLRM * SPEC * THR*  RHGL 
300  FOPMRT  < ” X I □=  " * E 1 5 . 9 * T34 * " BTR=  " * F 1 5.  9*  T48*  "XLRM="  • E 

•-C15.9*.''- 

SPEC-" • E 1 5 . 9 * T84 . ” THR= " * E 1 5 . 9 * T48 * " RHGL  = “ * E 15. 9> 
RETURN 

9000  CRLL  ERROR  <££> 

GO  TO  9998 
9010  CRLL  ERROR ‘34) 


■SUBROUTINE  FAM  • ♦ • 


C INPUT  IS  EITHER  COPE  AND  CLADDING  REFRACTIVE  INDICES  DP  T 
NCHE  NUMERICAL 

C RPEPTUPE  RND  FPRCTIONRL  INDEX  DIFFERENCE 

C 

COMMON  -TAMS  TAIL?  XLENj XIDj  FTP?  PTI » SRCE -PT, RNGL » PS « BW 
••Cj  TNA. 

TFP.TDF.PTI 

COMMON  • FRMS  - CORF - DF . FP . DEL  > XLRM  > SPEC  . RLPHRF  . XLMC  > CLRD 
VS*XNU»PN1» 

PDD » PSEC » RC » RF » RS » CN . SN » XL t XR I . XRO «PFI» PTO t 
CONN . SPLC » F I BR . TRR . TER . TOT » BL » GA I 

COMMDN  xPRMS^XRP . X I L j X I B . X I SC » PES * XM . SPMS » PNB • XMSC , XMR 

m:>  betr?  pi 

TYPE » OPT » GA I N . TBEP  . TS HP  . PFO  > CHRN . 

•50PT.BEP.SNP.BRND 

COMMON  ✓ I NFUT  - L 1 NE  (7c  > . LD I . LDO . LDF . LDR 

C 

C THE  NEXT  10  VRPIRBLES  MRV  HRVE  THEIR  VALUES  CHRNGED  WITH I 
MSN  THE  SUBROUTINE. 

C THEY  HRVE  THEREFORE  BEEN  MRDE  ONE-WRY  VARIABLES. 

C 

I F (PTO . EC . 0 . 0 . RND . PF I . EC . 0 . to  GO  TO  1 0 0 0 0 
PC  I =PF I 

IF  CPF  I.  EC.  0.  CO  PCI=FTO 
CORE  I =CORE 
DELTR=DFL 
CL API -CLAD 
XNR=XNU 
PNR=PN 1 
PND=PDD 
PNS=PSEC 
C 

C SET  UP  DEFAULT  GLASS  PARAMETERS 

C 

I F < PNA  .EC.  0 . CO  PNR=-0 . 0 1 45 
I F - PND . EC . 0 . CO  PND=-  0 . 0 0 085 
I F (.PNS . E 0 . 0 . CO  PNS  - 0 . Uc5 
I F ( X L R M . E C . 0 . (O  GO  T O 1 0 0 0 0 
IF  CPELTR.  GE.  1 . Co  GO  TO  5000 

II F t COPE  1 . EC1 . 0 . 0 . RND . PELTP^XNA . HE . 0 . 0 '•  COPE  I =XNR  -VCRT  •. £ . 

mS0*DELTR> 

I F (CLRD I . EC . 0 . 0 . RND . DEL  TR^COPF I . NE . 0 . 0 > CL  RD T -COPE  I ♦ 1 1 . 

• C 0-DELTA > 

1 F - DEL  TA . EC . 0 . 0 . RND . CORE  I ♦CLRD 1 . NE . 0 . 0 * DELTA* • C O PE  I -CL 
\C ADD  'COPE I 

I F (,Y NR . EC.  0.  u.  AND.  C OPE  I ♦DEL  TA.  NE . 0.  0 > XNA=C  OPE  I ♦SORT  (£*. 
C0»DELTR> 

C CHECK  THESE  VARIABLES  TO  BE  CERTAIN  THFY  RAVE  BEEN  DEFINE 

-C  D 
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IF  <COPE  I ♦OELTft.  EQ.  0.  0>  GO  TD  10000 


CRLCUL.RTE  POWER  RECEIVED  BY  FIBER  CRBLE 
IFCPTO.EQ.  0.  G.OR.TRIL.EO.  1. 0>  GD  TD  21 

F'TO  HAS  BEEH  DEFINED  PND  ME  HRVE  ND  PIGTRIL 
IF  ' SRCE.EQ.  1 . 0.)  PCI  = 0.  1*<XNR*DF>  **2*FP*PTD/  <0.  14*90.  0>  ♦ 
C*2*0.  5 

I F <SRCE . EQ . 3 . 0 . RND . XLEH . EQ . 0 . 0>  PC  I - 0 . 1 5*FP*PTD 
IF (SPCE.EQ. 3. 0. RND. XLEN. NE. 0. 0) PCI=0. 5*FP*PT0 
I F ‘ SRC  E . EQ . 4 . 0>  PC  I =FP*PT0*DF**2 - DS**2 
IF-rSRCE.NE.2.  0>6D  TD  £? 

I F ('RNGL .LE.  0.  O.DR.  RNGL . GT . 9 0 . O'*  GD  TD  10000 
FN=90. 0-RNGL 
R=  1 . 0 
C=XNR**2 

IF  <FN. EQ. 1 . 0 ■ GD  TD  22 

R=CD$<3.  1416*0. 5*  <FN-1. 0 '•  ^FN>  / <FN- 1 . 0)-CQS<3.  1416*0.5* 
<FM+ 1 . 0>  ' FN>  / <FN+ 1 . 0 > -2.  Os  (.FN**2- 1 . 0) 

C=CDS  '.  T NR*  •:  FN- 1 . 0 ')  > ' <FN- 1 . 0>  -C  D 3 < TNR*  • FN+ 1 . 0>  > ✓ <FM+ 1 . 0 

C 1 -2 . Os 

<FN**2-1 . 0.) 

22  D=  1 . 0 

IF  CDF'DS.LE.  1 . 0)  D=DF**2.-DS**2 
F'C  I =PTD*C  •'  R*FP*D 

COMPUTE  INPUT  COUPLING  L DCS 
£3  GR I =XR I 

I F '•  Gfi  I . EQ.  0.  0.  RND.  XNR.  LT.  RNGL.)  GRI  = 1 0.  0*RLQG1  0 <PTQs PCI ) 

COMPUTE  INTERMEDIRTE  6LRSS  PRRRMETERS 

21  CN 1 =CDPE I -PNR 

EPS=-2.  0*CDPE  I *PND -TNI  *DELTR  ■ 

C£='3.  0*RLPHRF-2. 0 *EPS-2. O' s <2. 0*RLF'HRF+4. 0> 

C 1 = ■ RL  PHRF-EPS-2 . 0>  < RLPHRF+2 . 0> 

TRBLE  LOOKUP  - INTERF’DLRT  ION  FDR  K'RLPHR)  GIVEN  RLPHR. 

CRLL  RLFR  • RL  PHRF  - XKRF  • i- 1 0 0 0 0> 

XLC-0.  0 

I F •:  Vj_MC . NE . 0 . 0>  XlC=XKRF  XLMC 

COMPUTE  INTERMDDRL  DISPERSION  - USE  £ STEFS 

1 1 DTEP=XL*CN1 *DEL TR*RlPHRF • <6. Of-4* (RLPHRF+ 1 . 0) > *SQRT < *.R 
CL  PHRF 

-*■£.  O'1  ••  < 3.  0*RLPHRF+2.  O ' > 

DTEP-DTEP* SQPT  CC 1 **2+4 . 0*C 1 *C 2*DEL Tfl* •" RLPHRF+ 1 . O ' •- <2. 0 
C*Rl-PHRF 

♦ 1 . 0>  *4.  0*DFL  TR**2*C2**2*  > 2.  0*RLPHRF+2  . O'  ♦♦£''  • '-5.  C*RLP 
C HRF +2 . 0 • ♦ 

• 3.  0*RI  PHRF+2.  • ' ' 
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C COMPUTE  INTRRMODRL  DISPERSION 


DTPR=XL^SPECx  <3.  0E-4^XLAM>  ♦SORT  <PNS>^2-2.  &♦ 

PNS^CNl  ♦DELTAS  <fRLPHRF-£.  0-EPS>  x <ALPHAF+2.  0)>^<2.  0* 
RLPHRF  • 2.  0#RL PHAF+2.  0)  > + <CN1«DELTR>  ♦♦£♦  < (RLPHRF-2.  0-E 

nCPS>  ■■■'  (RLPHRF 

+2.  CO  > ♦♦£♦  < <2.  O^RLPHRF)  x <3.  O^RLF'HAF+2.  O ' > > 

C COMPUTE  TOTAL  DISPERSION 

C 

DT0T=DTER^2 

I F • XL . 6E . XLC . AMD . XL C . ME . 0 . 0>  DTOT =DTOT ♦XLC  •"  XL 
D TDT=SOPT  CUT 0T+DTRP^2> 

C 

C COMPUTE  3 DB  FIBER  BANDWIDTH 
C 

BL=0.  1 32-'  CDTDT ♦ 1 . 0E-9> 

CONN=CN^RC 

SF'LC=SM^RS 

FIBP=XL#RF 

XLS=C ONN+SPLC+F I BR+XRO 
F'FO=PC  I ♦ 1 0 . •'!♦♦  0 . 1 ♦XL s> 

UP  I TE  < L DD « 1 0 0>  DTRA*  DTEP«  DTOT  > BL  ? XLC  * PTD*  PF I ? PFO 
l 0 0 FORMAT  ( " O^FRM^  " . x » " D TPR=  " * E 1 5 . 9 » T24 . ’ DT  EF:=  " * E 1 5 . 9 * T4 
NC8»  "DTOT*' , 

E 1 5 . 9 •>  » " BL="  »E15.  9>  T24j  " XLC="  > E15. 9»  T4S»  " PTO="*E 
\C  15.9*  x • 

•’  PF I = " » E15.  9?  T24*  " PFO="  » E15. 9) 

WRITE <LDO»  200) XL  AM* SPEC?  RLPHRF • DEL * XMR * CORE  I * CLAD I * GRI 

l * XL  5- 

200  FORMAT*  " XLRM=  " * E 1 5 . 9 « T24  * " SPEC*"  - E 1 *5. 9?  T48»  "RLFR="  > E 

\C  1 5 . 9 1 x . 

DEL.*"  * E 1 =• . =•  * T c 4 * " XMR* " * E 1 5 . 9 « T4R . “ CORE* " * E 1 5 . ? « X » 

• C " ■LAD*"'. 

E 1 5,  9 • T 24 * •'  XR T = " * E 1 5 . 9*  T48 * "LOS  S = " < E 1 5 . 9 > 

RETURN 

C 

C THE  RIGHT  COMB I NATION  OF  INPUT  DATA  CCOFEI ? CLAD I * XNA* DEL T 
A ■ WAS  H0  T i.-’IVEM 
C 

1 0 0 u o it.iR  I TE  1 L.  DC  * ! 0 0 o l > 

10001  FORMAT ' " DATA  INSUFFICIENT  FGR  FURTHER  FIBER  ANAL  Vi IS. 

•.  C " i 

RFTURN  1 

? 0 0 0 C RL  L ERROR ' 94  • 

RETURN  1 
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SUBROUTINE  Rl FR <R) RLPHR. NRT> 

PERL  KRL 

DIMENSION  RLF  <60>  • KRL  <60> 

CDMNON  / 1 NPUT.^L  I NE  < 72)  » LDI » LDO*  LDF ) LBfi 
DRTR  SPVE  -'U.  0/ 

DRTR  RL.F'1. 43) 1.50)  1.55*1. 60)1. 65)  1.7,1. 75»  1.9*  1.35*1. 
C9» 1.95* 

8 . 0 < £ . 1)8. 8)8. 3)8. 4»8. 5)8. 6)8. 7)8. 8)8. 9)3.  0)3.  1 » 3 . 8 » 3 . 
C 3 j 3 . 4 » 3 • 5 > 

3 . 6 » 3 . 7)3. 8) 3. 9)4. 0 ) 4 . 5 < 5 . 0)5. 5)6.  0)6. 5«7. 0)7. 5)8.  0 « 8 . 
CZi 9. 0)9.5? 

10.  0 ) 18.  0 ? 14.  0 ? 16.  0 » IS.  0)80.  0 ) 85 . 0)30.  0 ) 35 . 0)40.  0 « 4= . 0 
C ) 5 0 . 0 ) 6 0 . 0 ) 

70.  0)  8 0 .0)90.  0)  100.  O' 

DRT  R KRL  •••"3 .5)3. 8)  3.  08 ) 8 . 77  )8.73)8. 68 ) 8 . 5)  8 . 48  ? 8 . 33)  8.8 
C5 ) 8. 17)8.  10) 

1 . 95 * 1 . 87 ) 1 . 77 ) 1 . 69) 1.68) 1 . 55) 1.49)1.44)1. 39) 1 . 35) 1 . 38 
C) 1 . 88) 1 . 85  * 

1.83)  1.8)  1.  18)  1.  16)  1.  14)  1.  13)  1.  1)  1.  05)  0. 99 • 0 . 95 » 0 . 98 ) 0 

C • 83  % o ■ *1*6  J 

0 • 84 * 0 • 82 * 0 • 8 0 9 0 • 79 * 0 • 78 * 0 ■ 77 * 0 • 73 j 0.7?  0 • 87 ? 0 > 66 ? 0. 64 • 

1 J IJ  . 6 £ !•  U m 6 9 

0 m 59 * 0 • -58 !•  0 • 57 * 0 ■ 57*  0 • 56 * 0 ■ 56 » 0.  56  * 0 ■ 55 * 0 • 55 s 
I F • R . EO . SRVE> RETURN 

IF  i R . LT . 1 . 43 . OP . R . GT . 100.  0.)  60  TD  8 0 
DO  10  1=1)60 
I F CRLF  < I > . EG' . fl>  GO  TO  4 0 
I F * RL F I . GT . R > GO  TD  5 0 
10  CONTINUE 
80  WRITE 'LDO? 1 00> 

100  FDPMRT  <:  “ ORLPHR  MUST  EE  WITHIN  THE  PRNGE  OF  1.43  TD  100 
C.O  INCLUSIVE 


RETURN  NRT 
40  RLPHR=KRL • I> 

RETURN 

5 0 RLPHR=K  RL  I > - •:  RL  F ( I .)  -hO  ✓ •: RLF  < I > -RLF  <1-1  > > ♦ < k RL  < I > -K RL / 
I-l>> 

SRVE=RLPHR 

RETURN 

END 
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SUBROUTINE  F'HM 

It  I MENS  I ON  TPRN  < 3 0 * 5>  » P <2 , 35> 

COMMON  •••  PRMSvXRP »XIL*XIB»XI SO » PES , KM , SPMS > PNB> XMSC * XMft 
C « B E T H . P i 

TYPE > OPT . GR I N> TBEP * TSNP « FFO> CHRN . 

•SORT > BEP  > SNP . BRND 

COMMON  1 NPUT  • L I NE  < 7£>  -.LIU  - LUO > LDF , LDR 
COMMON  xFhMS'C DPE  > DF > P P , DEL  > XLRM > SPEC  > RL  FR • XL MC , CL  RD . X 
CMIJ.PN1 .. 

PDI1  . PSFC:  * Ri.1 > RF  - RS  > CN  - ; N . XL  > XR I . XRD  - PF I - PTO  > 

CONN.  SF'LC.  FIBR.  TPR>  TEP»  TDT * BL>  GRI 
COMMON  ••'SPECL  - TPRN?  DPP 

DRTR  P •-  0 . 1 0383 » 1 . £6  * 0 . 0 1 044  >£.31.0.1  034*E -£  > 3 . u8  <0.1  03 
C71E-3. 

3.71. 0.  1 3?48t-4>  4.  £>  U.  541c"?.  4. 3'?.  0.  79  335E  —6 > 4,  799 > 0.  47 
C ? 1 9F -6 > 

4 . 399 . 0 .  £8665E-6 > 4 . 999  >0.1 6983E-6 > 5 . 099  > 0 . 99645E -7.5.  1 

C99> 

0 . 579 Oc'E-7 > 5 . £99 > 0 . 33  J£  1 E— 7 > 5 . 399  > 0 . 1 07 1 8E—  7 . 5 . 599 > 0.5 
C9904E-8* 

5 . 699 . 0 .  331 55.  —8 > 5 . 799 >0.1 8 1 75E-8 > 5 . 899 . 0 . 98659E -9  >5.9 

C99. 

0 . 53 034F -9 > 6 . 099 > 0 . £8£3£E-9> 6 . 199.  0 . 1 4888E- 9 *6. £99. 0 . 7 
C7689F- 1 0> 

6.  399 > 0. 4 0160E- 1 0. 6 . 499 > 0. £ 0558E- 1 0.6. 599 . 0 . 1 048 IE- 1 0> 
C6 . 6 Q9 . 

0 . 1 £79SE— 1 1 » 6 . 999 . 0 . 1 4388E— 1 £ > 7 . £99.  0.  1 48  07 « 7 . 599 .0.1 3 
C945E-14. 

7.999. 0.  1 £ 0 1 9E- 1 = • 8 . 19. 0 . ££ 3£4E— 1 6 > 8 . 399>  0. 16594E  — 1 7 .8 
C . 699. 

0.  1 1 £86E - 1 8 > 8 . 999 . 0. 17893E-19.9. 199. 0.  1 0495E-8 0» 9. 49' 


TYPE 

1 


4 

5 


FXPLRNRT I ON 


RNRLOG  - 
RNRL OR  - 
RNRLOG  - 
RNRlOG  - 
RNRi  OR  - 
DIG  I TRl.- 
DIGITRL.- 
D I 8 1 TRL- 
DIG1 T RL - 


BR  :-EBRNP 
RM 
FM 
D ::  B 

r:SB 

FSh 

P i E 

BR SEBRNP 

pr: ebrnd 


• no;:  > 

, BPP’M  •• 
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INPX=0 

PR=PFOM.  0E9 

I F > PFO . EQ . 0 . 0>  GO  TD  10070 
IF (CHAN.LE. 1 . 0>GD  TD  17 
19  INPX=INDX+1 

I F (FLOAT  < I NDX>  . GT . CHRN>  GD  TD  9999 
N TYPE=TPAN  ( I NDX  ? 1> 

X I S6«=TPfth ( I NDX , 2) ♦♦£ 

SRMS=TPAN  <INDX?  3> 

XMA=TRAN  < I NDX ? 4> 

BETA=TPAN  < I NDX  * 5> 

GD  TD  IS 

17  MTYPE=TYPE 

X I SGA=X I S0^2 

18  XGA I N=GA I N 
GDPT  = U • 0 
NGDF'T =DF'T 

I F <6  A I N . LE . 0 . 0> XGR I N=  1 . 0 

SNB=RNB 

BAND=RNB 

IF  <NTYPE-8>  1 0030? 1 0010? 1 008  0 

C 

C DEFINES  SHE  FDP  2 CASES  - DIGITAL  BASEBAND  DDK  AND  BPPM 

C 

1 0 010  s N B = p ♦ 3 . 1 4 1 6 s 3.0 
BAND- F'-'E  • 0 
GD  TD  10030 

1 0 02 0 £NE=P*3 .141  £,♦£ . . 0 

BRNP=P 

C 

C SHOULD  WE  OPTIMIZE  GRIN? 

C 

1 0 03  0 1 F < NPDP  T . EQ . 1 . AND . NT?  PE . L T . 6>  XGR  I N=  < •:£ . 0*1 .6  02  IE- 1 Q*X  I 
•£ L ♦SNB+X I SC' A 

> y <1.6 08 IE- 1 Q*SNB^XRB»  • PES^PP+X  I B>  > "■  ♦♦  1 1 . Oy  <2 . O+XAIO  > 

C.  EVALUATE  SOME  INTERMEDIATE  EXPRESSIONS  COMMON  TD  ALL  ANAL 

•-CY3ES 

C 

XQSOf  4. OM . 6081E-1 O^PES^PP^SNE#XGAIN*» • 2. 0+XAP? 

I F CNTYPE . EQ . 8 . DP . N TYPE . EQ . ?>  SNB=  S NB -'8 . 0 

Xp?QA=,?.  i>j  . 608E-1  0»SNB*  (X  JL  ♦XIB*XGAIN*»  <2.  U+XAD>  > 

X I N S Q = X Q S 0 A ♦ X D S Q A+ X I ? Q A 
C 

Q IF  WE  APE  DOING  AN  ANALOG  ANALYSIS?  GD  TO  10060 

C 

IF (NTYPE.LT. 3>GD  TD  10040 
C 

>:  C Al.  CULATE  DIGITAL  BASEBAND  (DDK  ? BPFM' 
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Q=BORT  '2.  0)  *4.  0 - 3.  1 4 1 6*RES*XGA I N*PP.-"  CSPRT  CXINSQT  +SQRT  < 

nCXDSPA+X I SOA> 

SNB=BAND 
GO  TO  10050 

C COMPUTE  EB-MO 
C 

10040  I F CNT YPE . LT . 6) GO  TO  10060 

ECP=  0 . 5*RES  **3*XGA I N**8*PP**8*  X M S C ♦ ♦ 8 v" X I NSQ 
C 

C CALCULATE  DIGITAL  FSK 

I F CNTYPE . EO . 6) 0= 1 . 1 *SQRT CECP) 

C 

C C ALCUL ATE  D I G I ThL . PSK 

C 

IF  CNTYPE . EQ. 7> Q»SORT  C2. 0*ECR> 

C 

C COMPUTE  BIT  ERPOP  RATE 

C 

1 0 0 5 0 B E R = Q NORM  C Q > 

I F CTBER . EO . 0 . 0 . OR . BER . EQ . TBER)  GO  to  i fi  (155 
DO  10051  JK= 1 > 35 
I F CTBEP . MO . P ( 1 , JK.1  > GO  TO  1 0 058 
I F CTBER . GT .PCI. JK) ) GO  TO  1 0 053 


10051 

CONTINUE 

C 0= 1 . 0 

GO  TO  10057 

10053 

CQ=R  . JK) 

ijO  TO  10057 

1 0 053 

•JK  K =.JK  - 1 

C DPR  IS  IN  MATTS 

L'0=p  ''ii1.  JkK  ■'  — ' F'  '■  1 . ...IRK —TBER)  <P 1 1 . .JKH  1 — P 1 * JK  ' > ♦ <P  1 2 ? ..Ik 
CK>  -P  C£ . JK)  ) 

1 0 057  I F CNTYPE . GE . 8)  DPR=C0*3 .1416*1.  OE-9*  < S OPT  •'>:  l NSQ  ' + 5 CRT  •:  X 
C DSQA+X I SQA' > 

C4.  0*SQRT  (2,  0)*PES*XGA1N> 

I F CNTYPE  . EQ . 6)  DF'P=CQ*  SORT  (£ . 0*X  I N’  Q*  1 . OR  - 9 > ■■■'  * 1 . 1 *RE S*X 
•■CGhJN*XMSC  ) 

IF  CNTYPE ■ EQ.  7)  DPR— CO* SORT  (X T NS'O* \ . OF— 9 1 /•  1 RE'S*)  GA  ] N*XMS 


1 UU55  XMAR=  1 0.  0*AL.QG  1 0 1 P R 1 L'P'R*1 . uE'9  1 ■' 

IF  < I N DX . G T . 1 ) GO  TO  10 056 

MR  I TE  CL  BO . c'  0 Me'  '•  HAD * X It.  X I l > RES  * PH  B » XMSC  « R . BAN D . T PER . RF 
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1 n 056  UR  1 TE  • L DO « 2 0 03>  CHAN . TYPE > GAIN*  XISQ>  UPP - XMAP » BEP 
£003  FORMAT..."  CHAN="  , E15. 9.  T24,  “TYPE®"  > E15. 9»  T48*  "GAIN»"  tEl 
\C5. 9? 

" X I SQ= " » E 1 5 . 9 * T24 » "UPP  = " , E15. 9» T48* "XMAP=" # E15. 9» s* " 
C BEP  = "» 

E 1 5 . 9 > 

RETURN 

C 

0 EVALUATE  THIS  EXPRESSION  NOW  - IT  IS  COMMON  TD  ALL  5 ANAL 
•COG  MODULATIONS 

C 

1 0060  PflRTl»SRMS^£*PES*^£^XGAIN^2*PR^£ 

C 

C CALCULATE  ANALOG  BASEBAND 

£ 

I F CNTYPE . EQ . 1 > ARG=XM^£#PAPT  1 .-  X I NSC! 


I 


C CALCULATE  ANALOG  AM 

IF  (NTYPE.  EG!.  £.)  APG=  <XMSOXMA>  ♦♦£^PART1  ♦O.  =/XINSQ 
C CALCULATE  ANALOG  FM 

I F - NTYPE . EQ . 3>  ARG=  1 . 5*BETA^£^XMSC^£*PART  1 /X I NSQ 
C CALCULATE  ANALOG  DSB 

I F CNTYPE . EQ . 4>  ARG=  0 . 5»XMSC^£^PART  1 ' X I NSQ 
C CALCULATE  ANALOG  SSB 

I F ( NTYPE . EQ . 5>  ARG=XMSC^£#PART  1 - X I NSQ 

C COMPUTE  SIGNAL'- NOISE  PATIO 

C 

SNP= c 1 0. O^ALOGl 0 CAPG>  > 

IF  - OPT . EQ.  1 . 0.)  GOPT =XGA I N 

I F CTSNP . EQ . 0 . 0 . DP . TSNP . EQ . SNR) GO  TD  1 0 06 1 
XAPG=1  0.  ( TSNR  ' 1 0.  0> 

I F CNTYPE . EQ . 1 1 YARG=XAPG*X  I NSQ  ■■  XM»^£ 

IF  CNTYPE  . EQ.  £)  YAPG=£.  0*XARG*XINSCV  CXMSC^XMA')  ♦♦£ 

IF  CNTYPE.  EQ.  3)  YAPG=XAPG-*XINSQ  •'  Cl.  54BETA^£4XMSC^#2> 

TF  CNTYPE.  EQ.  4:>  YARG=£  . •’•♦XAPG^X  I N S Q ■ X MS  C ♦ ♦ £ 

IIPRNTQPff  i E0P6>  YABBMS*R6**IH8<PMXMSC^£ 

XMAP=  1 0.  O^AL  OGl  0 CPR/-  •:  D F‘  F‘  ♦ 1 . 0E9.)  > 

1 0 06 1 I F ( I NDX . GT . 1 > GO  TO  1 0 062 

MR  I TE  CL  DO  ■ £ 0 04.)  XAIi . X I B - X IL  « RES  j RNB»  XMSC » XM  - OPT  - BAND » T S 
■CNR.PFO 

£0  04  FORMAT  C"  O^RAM*-,..'.'-,  " XAP  = " • El  5.  9,  T24*  "XI B =%E15.9»T4 
■ C6 • "X IL  = " * 

E 1 5 . 9 * • " FES  = " n E 1 5 . 9 » T £4 « " RNB  ="  - E 13. 9- T48*  "XMSC*" * E 
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Cl 5. 9* 

KM  ="«E15.9jT£4*  "OPT  = " . E 15.  9,  T48»  "BRNIi="  . El  5. 9»  / 
\C . - TSNP=  '•  - 

E15. 9»  T£4«  “PFO  »”»E15.9> 

1 006£  WRITE  <'LI'0»  2005>  CHRN»  TYPE > GR I N * GDPT » X I SQ » SRMSf  XMR.  BETR. 

■ CBPP » XNRP » 

SNR 

£ 0 05  FDRMRT  < " CHRN=  "*E15.9»T£4»  “ TYPE=  " »E15.9*T48*  ” 6R I N= ” j E 1 

C J.  *9 • / 9 

" G0PT=“»E15.9»T24»  "XISQ=‘  <•  E15. 9.  T48»  " i:RMS="  » E 15.  9.  ' . " 
•-C  XMR  - '■ » 

£15.  9?  T24 « "£ETR="  » E 15. 9*  T48*  "DPP  = " • E15. 9«  ✓ » " KMRR=  " ■>  E 
-Cl  5. 9- 

T£4» "SMR  = “ * E 1 5 . 9> 

I F •: CHRN . GT.  1 . 0>  GO  TD  1 9 
9999  RETIJPM 
1 0 0?  0 MR  I TE  ‘ I DO  * 1 0 08  0 > 

10080  FOPMRT  POWER  INPUT  IS  ZERO.  "> 

RETURN  1 
END 
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FUNCTION  ONORMW 

COMMON  / INPUT-'L  INF  t.7£>  » LDI » LDOj  LDF i>  LDA 
C COMPUTES  V=l-P  <X>  =0  <X>  =PPOBABILITY  THAT  THE  PFtNDOM  VARIAB 
vCLE 

C EQUAL  TO  DP  GREATER  THAN  X*  WHERE  THE  RANDOM  VARIABLE  IS 
\CNORMALLY 

C DISTRIBUTED  WITH  ZERO  MEAN. 

AX=ABS (X) 

I F (.AX . GT . 3 . &>  GO  TO  3 

I F < AX . GT . 0 . 0 0 0 0 0 1 > GO  TO  1 

QNORM=0.5 

RETURN 

1 D1 =0. 0498673 
D£=ij.  0£1 1410 
D3— 3 • £776E-03 
D4=3 . 8 0E- 05 
D5=4. 889E-05 
D6=5.  3E-0F, 

X2=AX^AX 

X3=X£^AX 

X4=X3»AX 

X5-=X4^AX 

X6=X5^flX 

p l = 0 . ?♦  ( 1 . 0+  CD 1 ♦AX.)  + CB2^X2)  + < D3*X3>  + C D 4 ♦ X 4 > + (,D5^X5 ) + D 
C e>  ♦ X 6 > ♦♦ 

16!> 

ONORM=P 1 

C THE  MAXIMUM  ERROR  IS  1.5E-07 
GO  TD  4 

3 PI  =3.  141 592 7 
IF (AX. GT. 1 0. > GO  TO  8 

XP=EXF‘  (- AX, '♦♦£•■£.  ) ^AX-'SG'RT  <2.  ♦PI') 

X£=  1 . (*':<++ 2 
X3=  ••  AX»*4 

X4  = 1 5 . •••■  AX>^6 
X5= 1 05 . ✓AX^S 
X 6=84S.  A X ♦♦10 
X 7=1  0385.  A. ''■•'♦♦  1 £ 

P 1 = X P ♦ C 1 . 0 - X £ + X 3 - X 4 + X 5 - X 6 + X 7 > 

9N0RM=P 1 

C THE  MAX  I MUM  ERROR  I S 1 5 0 . ♦EXP  • -ABS  ('X')  ♦♦£  ■-  £ . > ' APS  <"X  ' ♦♦  1 1 

4 IF  1 X .)  6 * 7 *7 
* ONOPM=  1.0-PI 
7 GO  TO  10 
3 ON OPM  =0.0 

IF  (X.lT.  0.,'ONQPM=1.  0 
C WR I T E ( L.  D 0 ' 9.) 

C 9 FORMAT  *?X»  "♦♦♦♦♦  OCX.)  HAS  BEEN  SET  TO  ZERO*  X IS  GREAT 
CEP  than  l 0 ” 

1 0 RETURN 
END 
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*+  FODAP  WAS  DFVELOPED  FEBRUARY  > W77  UNDER 

THE  SPONSORSHIP  OF  HO^IF  AIR  DEVELOPMENT  CENTER  RY 

HARRIS  CORPORATION#  ESSD,  MELBOURNE#  FLA. 


I 


HEAD*  FOR  INPUT 
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CREATE  JEWEILE 

****TOU  ARE  ABOUT  TO  DESTROY  AJT  EXIST!  JO  KU.FS. 

****KJTHH  TES  TO  COJTIJUF.,  JO  TO  ABORT  COJJAJD. 

#fFS 

*DI  H ECTOR T CHEATED* 

^CREATE  TAJFILE  TEST 

” EJTER  VALUES  FORt  SRCE,  TAI  L,  <LF.J * PT I 

a.?, 1 .0,0.0, 1.0 

EJTER  VALUES  FOR:  <LAJ, SPEC, RT , PW 

050.0. 15.0,  l.OE-O^.O 

kjteh  values  for:  TJA,TEP,TDK 
0. 14,0.35,0.023 

EJDEH  VALUES  FOR:  AJ GL,  PS,  < 1 0,  BTR 

20. 0. 0. 0R, 0.0, 0.0 
♦FILE  TEST  CREATED* 

^CREATE  WAR  FILE  TESP 

EJTER  VALUES  FOR:  RECEIVER-TYPE,  OAI  I,  <AD,  *IL,  <1  R,  XI  S«,HES 

H.  0,1. 0,0.  . 0,1  00.0, 5A1.7,0.55 
EJTER  A VALUE:  FOR:  R 

I. 0E7 

♦FILE  TESP  CHEATED* 

# CREATE  FA  RULE  TEST 

EJTER  VALUES  FOR: CORF, DF, FP, DFL 

1.4612. 55.0.  0.35.0. 00595 

EJTER  VALUES  FOR:  ALFA,  * L'-iC,  Cl.AD,  X J A 

25.0. 2.0. 1 . 4525.0. 1 6 

E'JTER  VALUES  FOR:  P J 1 , P Dl),  PSEC 

0.0, 0.0, 0.0 

E'JTER  VALUES  FOR:  AE,  AS,  AC,  .<  AI 

10.0.  1.0, p.o, 0.0 
*KILF  TFST  CREATED* 

•Jf  CHEAT K SA4FILF  TEST 

E'JTER  v/ALUF.5  FOR:  C J , S J , XL 

2. 0. 0.0,  1 .0 

EJThR  VALUES  FOR:  OPT,  TPEF.,  TS  JR,  <A0 

".O,  1 .0E-R,2.0 

2.0 


*FI LE  TEST  CHEATED* 

-JfDEFIJE  TS JR^^.O 
■^DEEIJE  XAU=2.0 
-)(»  SAVE  SAJEI  LF  TEST 

+ ARE  anoui  TO  #nl  i !•'.  )v».;i  AJ  EXIST  l JO  FILE. 

***  *E\ITKR  T ES  TO  COJTIJUF,  J)  TO  AP)RT  COJvjAJn. 

•fr  TES 

♦FILE  SAVED* 

LIST  SAJFILE  TEST 

CJ=  • 20000K*0  1 S J=  . 0'*'»A'*F+'*|  <L= 

OPT=  .0O000E+01  TBfR=  . 100OOE-'*'/  TSJR® 

< A0=  .POO^OF+Ol 
* E J D FILE* 


• I J 


L 
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RET  RAiFILE  TEST 

EKR0K**FILE-MA'1E  DOES  nJOT  EXIST** 
OFT  RA'IFILE  TESP 
RA.1FILE  TESP  RETRIEVED 
•fcSAVE  RA1FILE  TEST 
♦FILE  SAVED* 

-J(*  DELETE  RAMFILE  TESP 
♦FILE  DELETED* 

■*LIST  RA'IDIRECT 
TEST 
-*TA.4 


♦TA-I* 


SHCE= 

.233333323E+31 

TAIL3 

. 133333333E*31 

PV* 

. 34 9999 9 23 F* 3 3 

PT I 3 

. i33333333e+3i 

PR3 

. 133333'*33E*31 

PTO* 

. 1 3 64  69  2 44  E-**  1 

XIO3 

.333333033E+31 

PTR= 

.333333333E+31 

XL  AX3 

• R 53 33 3333 E* 3 3 

SPEC3 

. 153333333E+32 

TMA3 

. 1 399999H 6F+33 

A\J  OL= 

. 233'*33333E+32 

*FM* 

DTRA= 

. 132775669E+01 

DTF.R3 

. 737S43334 E*31 

DTOT= 

.4'»7293343F.+  01 

RL3  • 

324392333E+3R 

XLC3 

. 339999943F+33 

PTO3 

. 1 3 64  69  244  F-'*  1 

P FI 3 . 
XL4-13 

333333333E+31 

.353333333E*33 

PF0= 

SPEC3 

• 26  74  3*3  532  E- 3 3 
. 1 53'*33'»33E *32 

ALFA3 

.13311 741 7E-36 

DEL3 

. 594999921 F-Bp 

X \J4= 

. 1 59999996 E* 33 

CORE3 

. 1461  23333E+'*  1 

CLAD3 

. 1452499R7E+31 

< Al  3 

. 197277527 E+ 32 

LOSS3 

. 1 6333333'»F>'»2 

-Jt-RAI 

♦ RA-1* 

Ttf  PE3 

.333333333E+31 

R= 

. 1 333/,33r,3F+3lS! 

OA I M3 

. 1 33333333  E*'*  1 

PA\ID= 

PP)= 

• 2674 3R 5 32 E-33 

RPR3 

# o»ao»oimoiO}oin»p+^  j 

X AD3 

.299999952E+33 

X I so= 

.541 699951 E+33 

X I L= 

9 ) m r* nan** nos  £4.  ^ ^ 

XIB3 

. 2999999 75 E- 01 

RES3 

. 54999 99 52 E+ 33 

R J9= 

**SA4 


****** 

AVAILABLE  POVER  < SOURCE)  = .2674' *F-33 

I \IPOT  COUPLING  LOSS  = . 19723E+32 
PIPER  LOSS  = . 13333F+3a 
SPLICE  LOSS  3 .33333E+"! 

CO 4 J ECTOR  LOSS  = . 43333E+31 
OUTPUT  COUPLING  LOSS  = . 23333E>31 

RFCEIVFH  POrfFR  (I  MrilT)  = .26744 E-33 

BFR  * .OOOOfl<E*'M 

DESIRED  PER  3 . 1 «»'»'*'» F- 01 7 

STSTF^I  RA'JDVIDTT  = . 43933E*37 

****** 
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-^CREATE  TAOFILF  TFSH 

EMTEH  VALUES  FOR:  SRCE, TAI L, XLEV, PTI 

2.0,  1 .3, 0.0,0.  0 

E4TER  VALUES  FUR*  XLAM*  SPFC,  RT,  B'W 
-*550.0,15  .0,3.  15E-7 

-#  9*  *? 

E\JTER  VALUES  FOR:  T'JA,  TFP,  TDF 
^ 0.  1 6*  1.3,850.0 

E'JDER  VALUES  FOR:  A'J  GL,  DS,  X I 0, RTR 
-#90.0,  75.3,3.3,66.3 
♦FILE  TFSR  CREATED* 

* taxi 

♦ ta-i* 


SHCE*  .233333333P>oj 

TAI  L= 

. 1 OOOOOOOOF+'*  1 

BWa 

• 23333339,,F*?8 

PTI»  . 333333333F+31 

PH  = 

• 9 1 6326533F.-02 

PTO= 

•23453274AF-3? 

XI 0=  .030000000 E+01 

PTR= 

. 660323333F+39 

X LA^a 

.R50O0000OE*0A 

SPEC=  . 1 SOOOOOOOF+OP 
ORDER  FA.4,RA4,SA'4 

TJA= 

. 1 5999999  6 F+'^O 

A J GL= 

. 9rtOO',OOOOE'*OP 

s^s 


♦ won* 

DTRA= 

. 1OP775669F+01 

DTER= 

. 70 75 A3 30 A E+  ^ 1 

DTOT= 

. 40  7090*40 F*01 

BL=  . 

324392833E+-38 

XLC= 

. 3099999 4 3F+00 

PTQa 

. 23450P74AF-33 

PFIa  . 
XLAIa 

000000000  F*0 1 
.<3  500  0000  OF*  03 

PFO= 

SPFCa 

. 5590 A 3975 E- 05 
. 1 50000000  F*02 

ALFAa 

.10011741  7F.-3A 

PEL= 

. 594999921 E-OP 

XvJAa 

. 1 5999999 6 F*a0 

CURE= 

. 1461  POOOOE*'"  1 

CLAD= 

. 145249937E+31 

X A I = 

.1591 75957E+32 

LOSS* 

. 1 60000000 E* 09 

*RAi* 

Ttf  PE= 

• BOO 000  333E+0 1 

Ra 

. 1 00000000 F+OR 

C4AI  >1  = 

BA'JDa 

. 50 0000 000  F.+ 07 

PFO= 

. 58  904 39  75 E-3 5 

RFRa 

# fX  3|  n*  c*  <T»  f\  f\  oj  r*  /»  j 

\AD= 

• 29  9 99  9 9 52 F+ 3 3 

XI  S'Ja 

.541699951 E+03 

XI  La 

# | nuv*o»/s.T|  yn  jr  + r*  3 

<IB= 

• 29  9 9 9 9 9 7 5 E- 0 1 

RFSa 

. 54999 9952E+00 

R'JBa 

****** 

AVAILABLE  P5  VFR  C SOURCE)  = .53904E-05 

ITPUT  COUPLING  LOSS  * . 15918E+32 
FIBER  LOSS  = . 10330fi>'»9 
SPLICE  LOSS  = .?33'J3E*31 
CO  J \1 ECTOR  LOSS  = . 4 3 3 3 OF*"  1 
OUTPUT  COUPLING  LOSS  = . P'*333F>'"  1 

RECEIVER  POWER  CIMP'JT)  * . 58934E-35 

BER  - . 33333 E+O  1 

DESIRED  PER  = . lO^O-^F -0  7 

StfSTM  BA'inWIDTU  = . 4*  34 3 F.+  o 7 


****** 
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DEFIME 

SYS 

AMGL-99.3 

♦TAM* 

SRCE- 

•299990399E+91 

TAIL3 

• 1 93999999 E+91 

BV3 

•233333329 E* 98 

PTI- 

• 009900999 E* 91 

PR- 

•916926995E-32 

PTO3 

•23A532862E-93 

XI 0- 

• 999399399 E+9 1 

BTR- 

•669930000E+92 

XLAM3 

• 8 53 33 9999 E+ 9 3 

SPEC* 

• 159399000E+92 

TMA* 

. 159999996E+99 

A^GL3 

•999999999 E* 32 

♦ FAM* 

DTRA- 

. 132775 598 E* 31 

DTER* 

• 79 78 A 3298 E+ 91 

DTOT3 

•497299745E+91 

BL* 

• 3249928 99E*08 

XLC3 

• 399999943E+39 

PTO3 

•2345328  62E-93 

PFI« 

•399000990E*3I 

PFO3 

• 58904452 1 E- 05 

XLAM- 

•853939999E+93 

SPEC3 

• 153090009E+02 

ALFA- 

• 2478  799 39 E- 99 

DEL3 

• 594999921 E-32 

XMA- 

. 159999996E+39 

CORE® 

• 146123093E+91 

CLAD- 

. 1 4524998 7E+91 

XAI« 

. 1591 76096E+92 

LOSS® 

• 1 69399999  F>9  2 

♦RAM* 

T7PE- 

•80999999 3 E+ 91 

R3 

• 199993999 E+98 

GAIV3 

• 1 9999 990 9 E+ 9 1 

BAMD- 

• 593999009E+97 

PFO3 

• 589344521 E-95 

BER* 

. 3 63  329  63 9 E- 9 7 

XAD- 

•299999952E+33 

XISQ3 

• 541 699951 E+93 

XIL* 

. 1 999 99999 E* 9 3 

XI B3 

• 2999999 7 5E- 9 1 

RES* 

•S49999952E+33 

RMB- 

• 9999339 39 E+ 3 1 

****** 

AVAILABLE  PO*ER  (SOURCE)  3 

•58934E-95 

I ^PUT  COUPLING 

LOSS  3 

• 1 59 1 8E*02 

FIBER 

LOSS  3 

• 19939E-*-92 

SPLICE 

LOSS  3 

• 99909E+9 1 

CO  W ECTOR 

LOSS  3 

•49999E+91 

OUTPUT  COUPLING 

LOSS  3 

• 29993E+9 1 

RECEIVER  POVER  ( I ^PUT)  3 

> • 58994E-95 

BER  3 

•36332E-97 

DESIRED 

BER  3 

• 10399E-99 

SYSTEM  BA'JDVI  DTK  3 .48343E+07 


DEFINE  ASIGL389.9 
TAM 
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♦TAM* 


SRCE- 

•233333333E+31 

TAIL- 

. 130033230E+31 

B W- 

•233333323E+38 

PTI- 

•333333333E+01 

PR- 

• 8 1 9 69373 A E* 33 

PTO* 

• 8 1 39 4 3 63 4E* 33 

<10- 

•333333033E+31 

BTR- 

• 663333303E+32 

XLAM- 

• 8 50333 233 E+ 3 3 

SPEC- 

DEFIME 

. 153333333E+32 
AMGL-63.3 

TMA- 

• 159999996E+33 

AMGL- 

• 893303333E+32 

*tam 

♦TAM* 

SRCE- 

•233333333E+31 

TAIL- 

. 1 03303333 E* 3 1 

BW- 

• 2 3 33 33 323 E+ 38 

PTI* 

• 030300033E+0 1 

PR* 

. 155454483E-31 

PTO- 

. 1 48 89 3354 E- 2 1 

<10- 

• 32333330 3 E* 3 1 

BTR* 

< 662303333E+32 

XLAM- 

• 8 53203333 F+ 3 3 

SPEC- 
«¥>  DEFIME 

. 1 53333333E+32 
AMGL-53.3 

TMA- 

. 159999996E+33 

AMGL* 

•633333333E+32 

+ TM 
♦TAM* 

SRCE- 

• 230333300 E+ 01 

TAIL- 

. 133333333 E+31 

BW- 

•2333333 23 E* 38 

PTI* 

• 333033333E+3 1 

PR- 

. 4549248 14E-22 

PTO- 

• 8 429 9229 4E- 3 2 

XI 0- 

• 033333333E+3 1 

BTR- 

• 663333333E+32 

XLAM* 

• 8 53333333 E* 3 3 

SPEC- 
¥ DEFINE 

. 153033333E+32 
AMGL-46*  3 

TMA- 

. 159999996E+33 

AMGL- 

• 533330333E*32 

*TAM 

♦TAM* 

SRCE- 

• 233333333E+3 I 

TAIL- 

. 1 33333333E+3 1 

B'V- 

• 233333323E+38 

PTI- 

• 333333333E*3 1 

PR- 

• 8 649 1 3427E-3  3 

PTO- 

• 6738 544 68 E- 3 2 

XI 0- 

•333333333E*2 1 

BTR- 

.663333333E>32 

XLAM- 

• 8533fl,2330E+33 

SPEC- 

. IS3333333E+32 

TMA* 

. 159999998E+23 

AMGL* 

• 463333333E+32 
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^LIST  TAMFILE  TEST 

SHCE-  .23333E+31 

TAIL3 

. |333«E*31 

XLEM3 

.33333F.+  31 

PT I 3 .33333E+31 

AMGL3 

.93333F+3P 

DS« 

. 75223F*32 

xio=  .33333e*31 

BTR= 

.66333E*3P 

RT= 

. 1 5233 E- 3 7 

Birf3  . 32333F+31 

SPSC3 

. 1 5332E+32 

XLAX= 

.5533^*33 

TMA3  . 16333E+33 

TFP» 

. 13233F+31 

TDF3 

.55233F+3P 

♦ E'lD  FILE* 

^ LIST  HA*!  FI  LF  TEST 


kEC  Tf PE3  . B3333F+31 

GAI  >1= 

. 1 3333  F+3 1 

X AD  3 

. 33333 W* 3<* 

X I L 3 .1 3333F+33 
RES  3 • 55333E+33 

XIB  3 

.33233E-31 

XI  S3- 
KM  3 

.541  73E*')'3 
• 33333E*'*  1 

SHMS3  .33333F*31 

R9B  3 

* 33333E+3 1 

XMSC3 

. <*ni3'il3J7.*.3  j 

XMA  3 .^3333F*31 

BETA3 

• 33333E+3 1 

R 3 

. 13332F+33 

*F'M D FILE* 


•^•LIST  FA4FILE  TEST 


CORE3  . 14612F+31 

CLAD3 

. 14525F+31 

XnI  A= 

. 1 6233F,*33 

DF3  « B5333E+32 

FP= 

. 35333E«-33 

DEL3 

. 59533E-32 

AF3  • 1 3333E+32 

ALFA3 

. P5303E+3P 

XLMC3 

• P3333E*3 1 

PM13  * 32333E+3 1 

PDD3 

. 33333E+3I 

PSFC3 

. 3A'*33E*31 

AS3  • 1 3333E*3 1 

AC3 

• 23333  E+3 1 

XAl3 

•33333F+3I 

*EM 0 FILE* 

LI  ST  SAMFI  LE  TEST 

CM3  * 23333  E*3 1 

S 9 *» 

• 33333  R*3 1 

XL3 

. 13333 F *31 

OPT3  .33323E+31 

TBER3 

. 13332E-39 

TS'JR3 

. 1 3323E-3'; 

XAO3  .23333E*3J 
*E\JD  FILE* 

■^•TA-1 


*T  A 'I* 

SRCE*  . 233333333 F>3  1 
PT  I = • 3 333'*  33?  3 E*  2 1 

xio*  .333233333e*31 

SPEC3  . 1 52333333E*32 


TAIL3  . 

PH3  .9163P5533F-32 
nTP=  . 663333223E+2P 
TMA3  . 153933936E+33 


R J=  .23333A323F+23 
PTO=  . P?45','P74*F-'-*3 
XLA43  . 315'*3',»323',>p>0,3 
A >J GL=  . 93333'’t''33F-*-3P 


♦ FA*!* 

DTK  A3  . 132775569E+3I 
53L3  . 324392B33S>3G 
PFI  = .333332333E*21 
XLA-i3  .B53333332E+33 
DEL3  . 594999921 E- 32 
CLAD3  . 145249937E*'M 
RA-i 


DTER=  . 737S433',,4E+31 
XLC=  . 339959943F+33 
P FO3  . 53934397SF-'*5 
SPEC3  . 1 52  133233F.+  32 
XJA3  . I 5999999*E*33 
X A I 3 . 1 591 7S9A7F+3P 


DT  0T=  . A"i729'M4'»E*31 
PT  3=  . 23450IP 745F-23 

ALFA3  • P53n,?T323F+3P 
CORF=  . 1 46123'*'*'*E*21 
LOSS3  . 1 
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•RAM* 


T/PE=  H=  . 1 GAIM=  . 1 E*  A l 

BAVDa  . 59009002BE+97  PF3»  . SR9B/I39  75E-95  BER=  . 3fi3332475F-'V7 

KAO  .299999952E+02  XISJ=  . 541  699951  E*03  X I L*  . 1 

<IR=  .299999975E-91  RF.S=  . 5499999 52 E+BO  RJB=  .'5?A«^'»'3fl!P!E*^l 

*#5AM 

****** 

AVAILABLE  ROVER  (SOURCE)  = .589”*4 E-^2 

I \IPUT  COUPLING  LOSS  = . 1 59 1 5 E+?2 

FIBER  LOSS  = . m^F+OS 

SPLICE  LOSS  = . A'3nIBn,E*31 

COW  EC  TOR  LOSS  = . 4'*'?:1',*F>B  1 

OUTPUT  COUPLI  V G LOSS  = . 2BB')'*  E+9 1 

RECEIVER  POWER  (IVPUT)  = . 5S9A/4E-(*2 

BER  = • 36333 E- 97 

DESIRED  DEM  = . 11333F-39 

StfSTE*!  BAm'Da’I  rsTR  = . 4R343E+37 

****** 


$ 


DEFI  \JE 
RA^l 


PF0*3. 303335 


♦ HA1* 


TYPE* 

• 8 303  333  30  F.+ 3 1 

R= 

• 1 3 333 3303 E+ 38 

G4I  0* 

• 

BAOD* 

•530303333E+37 

PFO= 

. 4 9999993  7 E- 3 5 

BER* 

• 

P/^MS'S'MF.-0^ 

XAD* 

•299999952E+30 

X I S3* 

. <54  1 699951 E+33 

X I L* 

• 

XIB* 

• 2999999  75 E- 3 1 

RES* 

•549999952 E+33 

ROB* 

• 

n»/nnjoinj^O)n»  3p^<T»  j 

DEKI  OE 

PF0=3. 333334#'*. 

003327 

♦ RAtt* 

TYPE* 

•803033333E+31 

R= 

. 1 33333333E+38 

GAt  0= 

• 

| nafrirnniniafyy  + rnj 

RAMD* 

. 533033330 E+3  7 

P F'l* 

. A999999 54 F-2 5 

RER  = 

• 

X AD* 

• 2999999 52 E+03 

X I S9= 

.541699951 E+33 

X I L= 

• 

XIB* 

•299999975 E- 31 

RES* 

• 549999952 E+33 

R 0 R= 

• 

♦RA'l* 

TYPE* 

• 833330333  E+3  1 

R= 

. 1 33323233 E+^B 

G4 I 0* 

• 

1 1 

RAOD* 

• 533333330E+37 

PFO= 

. 5999999  33 F- 3 5 

BER* 

• 

2'5!72'*5953F-'V7 

XAD* 

•299999952E+33 

X I S 9* 

. 54 1 699951 F+33 

X I L= 

• 

| o»o»n»oio»/3j^/Ti  p+  m 3 

XIB* 

•299999975 E- 31 

RFS= 

. 549999952 E+33 

ROD* 

• 

DFFI  OF 

PE0=3«  323334# 3. 

333338 

•3. 333332 

ORDER  RA<1 
#SYS 


*RA^  + 


TYPE* 

•833333333E+31 

R* 

• 

133333330E+38 

GA  I 0= 

• 

1 33n'3'*33n*E+3  J 

BA  0D= 

. 533333333  E+2  7 

PFO* 

• 

39 99 999 54 E- 35 

RER* 

• 

128333 3 32E-33 

XAD* 

•299999952E+33 

XI  S O* 

• 

541699951 E+33 

X I L= 

• 

133333333 E+33 

X I B= 

. 299999975 E- 31 

RES* 

• 

5499999  52 E+33 

ROB* 

• 

n^nr^nnir^r^n\n^-^.ni  ] 

*R  A*!* 

TYPE* 

. 833333333 E+ 3 1 

R* 

• 

j n, nt n, ntni nt n 

GA  I 0* 

• 

BAOD* 

. 53 3302333 E+3 7 

PEO* 

• 

5999999 33 E- 3 5 

BER* 

• 

?nn2*>c>r)?)fl  E-^7 

XAD* 

•2999999 52 E+33 

X I S Q = 

• 

541  59  9 9 5 1 f + **  3 

X 1 L= 

• 

XI  B= 

. 29999 9 975 E- 31 

RES* 

• 

549999952E+33 

ROD* 

• 

+RA'1  + 

TYPE* 

•832333333E+3 1 

R= 

• 

| oinin»o»nioi/T»/T|p^.oj>^ 

GAI  \}  = 

• 

RAOB* 

• 533333333E+37 

PR)= 

• 

7999999 3 7E“ 35 

RER* 

• 

l^SrHPl 1F-1? 

XAD* 

. 29999995? E+33 

XISJ* 

• 

541699951 E+03 

< I L* 

• 

j /t»  oj  /*  oj  ^ O)  p + /Ti  ^ 

x I n= 

. 299999975 E- 31 

RES* 

• 

5499  99952F+30' 

B OB* 

• 

1 
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-^GET  T A* FILE  TEST 

TAM FILE  TEST  RETRIEVED 

«^GET  FA «l FILE  TEST 

FA ’l  FI  LE  TEST  RETRIEVED 

■#GF.T  KAMFILE  TEST 
HAM FILE  TEST  RFTRIEVFD 

#GET  SAM  FILE  TEST 

SAMFILE  TEST  RETRIEVED 
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# LIST  TAM  FILE 


SRCE-  .20303E+01 

TAIL* 

. 10330E+01 

XLEM- 

• 00000E*0 1 

PTI*  .30003E*01 

AMGL- 

• 93003E*02 

DS* 

. 75303E*02 

XIO*  .03330E+01 

BTR* 

•66033E+32 

RT* 

. 15003E-07 

Bil*  .30333E+31 

SPEC- 

. 15303E+32 

XLAM- 

.85030E*03 

TMA-  • 1 6000E*33 
♦ EMD  FILE* 

TFP* 

. 10333F>01 

TDF- 

•85333E+32 

JtLIST  FAMFILE 

CORE*  • 1 461 2E*3 1 

CLAD- 

• 1 4525E+3 1 

XMA* 

. 16033E+03 

DF*  .85333E+32 

FP* 

. 35333E+33 

DEL* 

.59 533 E- 02 

AF*  • 1 3000E+02 

ALFA* 

• 25333E+32 

XLMC* 

• 20300E+0 1 

PM  1*  .33033E*31 

PDD* 

• 00023E*0 1 

PSEC- 

•33300E+31 

AS*  • 1 3333E*3 1 

AC- 

• 23303E+3 1 

XAI* 

•33323E*31 

* EMD  FILE* 
^LIST  RAMFILE 


REC  TV PE* 

• 83333E+3 1 

GAIM* 

. 10333E+31 

XAD  * 

. 33333E+33 

XIL  * 

. 10303E*33 

X I 8 * 

. 30303E-3 1 

XISQ* 

.541  73E+33 

RES  » 

• 55033E+03 

XM  = 

• 33333E+3 1 

SRMS* 

•33333E+0I 

RMB  * 

• 33333E+3 1 

XMSC* 

• 33303E*2 1 

XMA  * 

• 33333E+3 1 

BETA* 

. 03330E+3 1 

R * 

. 13333E*08 

♦ EMD  FILE* 
$fLIST  SAMFILE 


— 

CM* 

• 23330E+31 

SM*  . 33333E+3 1 

XL* 

. 13333E*31 

OPT* 

. 33303F.+0 1 

TBER*  . 1 3330E-39 

TSMR* 

. 1 3333E-39 

X AO*  .20033E*31 
♦ EMD  FILE* 

&S*S 


♦TAM* 


SRCE* 

• 233333300E+3 1 

TAIL* 

. 133333033E+31 

B'V* 

• 233333 323 E+ 38 

PTI* 

• 3 33303 333 E* 3 1 

PR* 

.91 6326935E-32 

PTO* 

.234532862E-33 

XIO* 

. 333333333E+3 1 

BTR* 

• 663233333E+32 

XLAM* 

• 5 53 333333 E* 3 3 

SPEC* 

. 153333333E+32 

TMA* 

. 159999996E+33 

AMGL* 

•903033033 F* 32 

*FAM* 

DTHA* 

. 132775598E+31 

DTER* 

. 73784 3238 E+ 31 

DTOT* 

• 43  729  3 74  5 F>  3 1 

RL*  . 
PFI*  . 

3 2439 28 30 E* 3 5 
333333333 E*3 1 

XLC- 

PFO* 

. 339999943E*33 
. 589344521 E- 35 

PTO* 

•234532862E-33 

XLAM* 

•053 303333 E* 33 

SPEC* 

. 153333333E+02 

ALFA* 

.2478 79939E-39 

DEL- 

. 5949999^1 E-32 

XMA* 

. 159999996E*03 

CORE* 

. 1 46 1 220 3 3 E+ 31 

CLAD* 

. 145249987E+31 

XAI- 

. 15917  6336E+32 

LOSS* 

. 163330000E+02 

♦RAM* 

TVPE* 

•S20330333E+31 

R* 

. 103303330E+-38 

GAI  M* 

. 100003030F+31 

BAMD* 

. 533333333  E*3 7 

PFO* 

.589344521 E-35 

BFR- 

. 36 3 323 683 E- 3 7 

XAD* 

• 299999952E*33 

X I SO- 

•  541699951  F.+03 

X I L* 

. 103000000 E+ 03 

X I B* 

. 2999999  7 5E-0 1 

RES* 

. 5499999  52F+00 

RMB* 

. 330303  3 33  F**"  1 
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****** 


AVAILABLE  POWER  (SOURCE)  * .58934E-35 


IWPUT  COUPLING  LOSS 
FIBER  LOSS 
SPLICE  LOSS 
CO 'HECTOR  LOSS 
OUTPUT  COUPLING  LOSS 


. 15918E+92 
. 13033E+32 
• 30990E+9 1 
•49999E*91 
•29099E+91 


RECEIVER  POWER  (IMPUT) 


• 58934E-35 


•36332E-37 


DESIRED  BER 


. 13993E-99 


STSTEM  BANDWIDTH 


•48343E+97 


****** 


■ft  DEFINE  GA I'f*l*9«10*9,»9«9 

4i*DEFI  ME  PF0».4E-5,9.  5E-5>?#  1 E- 5 


♦RAM* 
TtfPE* 
BAMD* 
XAD* 
XI  B=> 


•890399993E+91  r« 

. 539333333 E+3 7 PFO» 
• 299999952E+00  XISO« 
.299999975E-31  RES* 


. 130399999E+98 
•399999954E-35 
•541699951E+93 
. 5499999 52 F* 99 


GAI  \I*  . 133999999E+31 
RF.R-  . 1289939 1 2E-93 
X I L*  • 19999999?F+33 
R'JBa  .999999999E+91 


♦RAM* 
Ttf  PE=* 
BAvJD- 
XAD- 
XIB* 


• 300039990 E+ 3 1 K* 
. 539999939E+97  PFO* 
• 299999952E+39  XIS3= 

• 299999975 E- 91  RES* 


. 190990999 E* 98 

• 49999993  7E-35 

• 54 1 69995 1 E+ 9 3 
• 549999952E+39 


GAI  >1*  • 199933393E+31 
BER=  • 24 320 5 649 E- 9 5 
X I L*  . 199999999E+93 
RWB»  •99999999? E* 91 


♦RAM* 

TtfPE*  • 899999099 E+ 91  R» 
BA\)D«  . 599993993E+97  PFO* 
XAD*  .299999952E+93  XISQ* 
XIB*  • 2999999  75 E- 3 1 RES* 


. 1 99999999E+98 

• 399  99  99  54  E- 9 5 

• 541699951 E* 33 
• 549999952E+99 


GAIM*  . 199990999E+92 
BER»  •999999999E+91 
X I L*  . 10999999*F>'»3 
R^B*  • 999999999 E* 91 


♦RAM* 
TtfPE- 
BAMD» 
XAD* 
XIB* 
■ DEFIME 
•RAM 


• 330393999E*? 1 R* 
•599999399E+97  PFO* 
•299999952E+99  XI  S9* 
• 2999999  75E- 9 1 RES* 
GA  I >1*3«  9>  1 9 • 9 * 5»  9 


. l '*9?999'»'*F4-99  GAI'J* 

•499999937 E- 95  PER* 

.541699951 F*93  XIL* 

. 549999952E+39  r'HB* 


. 1 39 99 ^999  F>  9 2 

• 3999?nt?90F*91 
. 1 9 999 99 99 F* 03 

• 99999999? F+ 91 


3-130 


♦RAM* 

TYPE- 

•830993939E+01 

R* 

. 199390099E+38 

GAIM- 

• 999999939E+0 1 

BAMD- 

•599993999E+37 

PFO* 

. 3999999 54 E- 9 5 

BER* 

. 128993912E-93 

XAD- 

• 299999952E+00 

<1  SO- 

•  54 1 699951 E+9  3 

XIL* 

• 193',l99393E+33 

XIB* 

•299999975E-91 

RES* 

• 549999952E+33 

RMB* 

.993993999 E+*l 

♦RAM* 

TYPE* 

•800900933E+01 

R* 

. 133999933E+38 

GAI M* 

• 993939 999 E+9 1 

BAMD* 

•533390000E+97 

PFO* 

•49999998 7E- 95 

BER* 

• 2 4328 5 649 E- 9 5 

XAD- 

• 299999952E+99 

XI  SQ* 

• 54 1 699951 E+9  3 

XIL* 

. 1 99999999E+93 

XI  B* 

• 2999999 7 5 E- 0 1 

RES* 

• 5499999 52E+99 

rmb* 

•309993993E+91 

♦RAM* 

TYPE* 

•833333393 E+ 31 

R= 

. 199999393E+98 

GAI  M* 

• 59 909999 9 E+9 1 

BAMD* 

• 539993339E+97 

PFO- 

. 3999 999  54 F.- 3 5 

RER* 

• 999993399E+9 1 

XAD* 

• 2999999 52E+ 93 

XI  SQ* 

• 541 6999  51 E+9  3 

XIL* 

• 193999399E+93 

XI  B* 

•299999975E-31 

RES* 

• 5499999 52 E+ 39 

RMB- 

•993333393 E+ 31 

♦ RAM* 

TYPE* 

• 899933393 E+ 31 

R* 

• 19993 0390 E+ 98 

GAI  M* 

. 59999993 9 E+ 9 1 

BAMD* 

•539333393 E+9 7 

PFO* 

. 49999993 7E-95 

BER* 

• 399939399E+91 

XAD* 

• 299999952E+33 

XI  SQ* 

• 54 1 6999  5 1 E+9  3 

XIL* 

. 199399999E+93 

XIB* 

•299999975E-31 

RES* 

• 549999952E+39 

RMB* 

• 993 93 9399 E+ 3 1 

♦RAM* 

TYPE* 

• 809933393E+3 1 

R* 

. 139939033E+38 

GAI  M* 

. 193393333E+92 

BAMD- 

•533333399E+97 

PFO* 

•399999954E-35 

BER* 

• 9 33339999 E+9 1 

XAD* 

• 299999952E+03 

XI  SQ* 

•541 69 9951 E+ 33 

XIL* 

. 199999999E+93 

XIB* 

• 2999999  75E-9 1 

RES* 

•549999952F+99 

RMB* 

• 9 999993 9 9 E+9 1 

♦RAM* 

TYPE* 

•8333 39 339 E+ 31 
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DESIGN  CURVE  EXAMPLES 


4.1  Introduction 

One  of  the  useful  outputs  of  FODAP  consists  of  the  design  curves  that  can  be 
generated  by  incrementing  various  input  data.  Unfortunately,  because  of  the  lack  of 
component  standardization  in  the  fiber  optic  field,  one  cannot  construct  design  curves  that 
cover  all  situations.  Once  components  are  standardized,  FODAP  can  then  be  used  to 
generate  generalized  curves.  It  would  simply  be  a matter  of  using  input  files  consisting  of 
data  for  the  standardized  components.  In  the  mean  time,  one  can  construct  curves  for 
specific  design  situations.  Examples  of  such  curves  are  given  in  the  sections  that  follow. 
Sample  curves  appropriate  to  transmitter,  fiber  or  receiver  design  are  given  in  Sections  4.2, 
4.3  and  4.4,  respectively.  Section  4.5  gives  examples  of  systems-ievel  design  curves. 

4.2  Transmitter  Design  Curves 

One  important  operation  in  TAM  calculates  the  input  coupling  loss  from  the 
source  to  a fiber  pigtail.  The  input  coupling  loss  is  a function  of  both  source  and  fiber 
parameters.  It  is  interesting  and  informative  to  see  how  this  loss  is  affected  as  the 
pertinent  parameters  are  varied.  Such  results  can  help  the  designer  to  select  the  proper 
device  to  maximize  source-to-fiber  coupling.  The  largest  portion  of  the  input  coupling 
loss  is  usually  as  defined  in  equation  (2.4.1 .1-1).  Figure  4.2-1  shows  how 
varies  as  a function  of  0^,  the  null  angle.  A single  fiber  with  an  NA  of  0.18  was  assumed. 
The  value  of  at  0^  = 90°  was  calculated  using  equation  (2 .4. 1.1-4).  This  curve 
shows  that  as  the  source  output  beam  becomes  more  sharply  focused,  the  loss  is  reduced. 

An  important  point  should  be  made  here:  One  does  not  necessarily  reduce  the  total  loss 
simply  by  focusing  the  beam.  The  emission  angle  reduction  caused  by  focusing  is  accom- 
panied by  a source  area  magnification.  Once  the  magnified  area  becomes  larger  than  the 
fiber  core  area,  the  unintercepted  illumination  loss  (equation  2. 4. 1.1-2)  becomes 
important.  Thus,  one  wishes  to  reduce  the  emission  angle  just  to  the  point  where  A^  = Ap. 

If  A^  > Ap  to  begin  with,  then  focusing  has  no  effect. 
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While  the  above  mentioned  figure  illustrates  how  source  parameters  affect 
the  coupling  loss,  fiber  parameters  can  also  have  a large  effect.  In  particular,  the  fiber 
numerical  aperature  has  a large  influence  on  coupling  loss.  Figure  4.2-2  shows  a plot  of 
as  a function  of  NA  for  the  case  of  a Lambertian  emitter.  For  purposes  of  comparison, 
the  loss  associated  with  numerical  aperature  effects  for  an  edge  emitting  LED  is  also 
plotted.  Note  the  superior  performance  of  the  edge-type  emitter.  There  is  roughly  7 dB 
less  loss.  This  is  the  result  of  the  fact  that  the  edge  emitter  has  an  elliptical  emission 
pattern.  That  is,  it  is  a "compressed"  Lambertian  pattern  in  one  plane  and  a normal 
Lambertian  pattern  in  the  other  plane.  The  slight  focusing  gives  a lower  loss. 

4.3  Fiber  Design  Curves 

One  of  the  more  useful  fiber  design  curves  is  a plot  of  the  rms  dispersion  per 
unit  length  (assuming  no  mode  coupling  effects)  as  a function  of  the  fiber  profile 
parameter  a.  Figure  4.3-1  shows  this  curve.  It  was  generated  using  the  equations  for 
inter-  and  intramodal  dispersion  given  in  Section  2.3.  Two  specific  cases  are  considered; 
one,  a 15  nm  spectral  width  LED  and  the  other  a 1 nm  spectral  width  ILD.  Both  were 
assumed  to  emit  at  a peak  wavelength  of  850  nm.  The  fiber  parameters,  as  shown  on  the 
figure  were  those  appropriate  to  a 0.16  NA  fiber.  Note  how  at  the  optimum  a,  the  total 
dispersion  is  minimized  for  both  cases.  However,  because  of  a lower  intramodal  dispersion 
for  the  ILD  (due  to  its  narrower  spectral  width),  the  total  dispersion  resulting  from  its  use 
is  considerably  less  than  for  the  LED.  The  optimum  a shown  is  the  design  goal  for 
manufacturers  of  graded  index  fibers.  However,  since  the  fiber  making  art  is  relatively 
new,  these  manufacturers  are  only  presently  able  to  make  fibers  with  profiles  of  10%  of 
optimum. 

When  mode  coupling  effects  are  accounted  for,  the  situation  gets  more 
interesting.  The  designer  is  able  to  examine  trade-off's  between  excess  loss  and  increased 
bandwidth.  Curves  showing  total  dispersion  as  a function  of  fiber  length  are  shown  in 

Figures  4.3-2  through  4.3-5.  The  parameters  used  to  generate  Figure  4.3-1  are  used  in 
these  figures  with  the  addition  that  excess  losses  associated  with  mode  coupling  of  0,  2,  6 
and  10  dB/km  are  used. 
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Figure  4.3-1 . O'  Versus  a 
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Figure  4.3-2  shows  the  effect  of  mode  coupling  on  for  the  case  of  an  LED 
used  with  a step  index  fiber  (ct  = 25).  Note  how  the  dispersion  begins  to  approach  the 
intramodal  dispersion  limit  at  long  fiber  lengths.  This  limit  is  more  rapidly  approached  as 
the  excess  loss  becomes  larger.  Figure  4.3-3  shows  the  case  of  an  LED  with  a graded 
index  fiber  (<*  = 2.04,  10%  of  optimum).  Because,  in  this  case,  the  system  is  already  at 
the  intramodal  dispersion  limit,  mode  coupling  does  not  reduce  0j.oj.a|* 

Figure  4.3-4  is  for  the  case  of  an  ILD  with  a step  index  fiber.  Here,  mode 
coupling  has  a large  effect  because  the  total  dispersion  is  predominantly  intermodal . The 
case  of  an  ILD  with  a graded  index  fiber  is  shown  in  Figure  4.3-5.  In  this  case,  the  mode 
coupling  effects  are  smaller  because  the  intermodal  dispersion  is  a smaller  fraction  of  the 
total . 


4.4  Receiver  Design  Curves 

When  an  avalanche  photodiode  is  used  in  the  receiver,  its  noise  properties 
as  a function  of  gain  in  conjunction  with  the  noise  properties  of  the  input  amplifier  give 
rise  to  an  optimum  gain  at  which  the  noise  is  a minimum.  This  was  discussed  in  Section  2.2. 
Specifically,  the  optimum  gain  as  a function  of  input  power,  diode  properties  and  amplifier 
noise  is  given  by  equation  2. 2. 2. 5-1 . Since  the  SNR  is  a function  of  the  optical  power, 
then  one  can  infer  a relationship  between  optimum  gain  and  SNR.  This  is  shown  in 
Figure  4.4-1 . The  parameters  used  to  generate  this  curve  are  listed  below: 


b = 10  MHz 

i.  = 10.7  nA 
A 


D 

M 


0.65  A/W 
100  nA 
50  PA 


RCA  C30817  APD  parameters 


0.3 


0.8 
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Note  that  as  the  SNR  gets  relatively  large  (greater  than  35  dB),  the  required  optimum  gain 
is  below  20.  Most  APD's  do  not  work  well  below  a gain  of  ~20.  Thus,  from  a design 
implementation  point  of  view,  one  would  prefer  to  use  a PIN  photodiode  instead  of  an 
APD  for  systems  requiring  SNR's  of  35  dB  or  greater. 

A more  complicated  problem  is  solving  for  the  optimum  gain  in  a digital 

_9  

system.  Specifically  for  the  case  of  an  OOK  system  at  10  BER  using  the  RCA  C30817 

APD,  G . as  a function  of  bit  rate  R is  shown  in  Figure  4.4-2.  As  was  mentioned  in 
opt 

Section  2. 2 .2 .5,  this  relationship  cannot  be  explicitly  solved  for,  it  must  be  found 

-9 

numerically.  By  calculating  the  minimum  optical  power  required  for  a 10  BER  as  a 

function  of  gain  at  a given  bit  rate  using  RAM,  one  can  find  the  gain  G ^ that  minimizes 

the  required  power.  As  is  shown  on  the  figure,  this  was  done  for  the  cases  of  two  different 

amplifier  configurations,  one  using  a FET  as  the  input  device  and  the  other  using  a bipolar 

transistor  as  the  input  device.  The  equivalent  input  noise  currents,  i , as  a function  of 

14  a 

bit  rate  are  given  by  Goeli.  The  FET  amplifier  is  the  noisiest  at  high  bit  rates  and  so  it 
requires  a higher  APD  gain.  The  two  curves  merge  at  approximately  10  Mb/s  because 
below  that  point  it  is  not  the  amplifier  noise  but  the  APD  surface  leakage  current  noise 
(l^)that  determines  the  optimum  gain. 


4.5  System  Design  Curves 

The  ultimate  usefulness  of  FODAP  is  that  it  allows  the  designer  to  examine 
how  various  component  changes  affect  the  overall  system  performance.  In  that  way,  the 
optimum  design  can  be  found.  This  design  trade  information  can  be  illustrated  by 
parameterized  system  design  curves.  Figures  4.5-1  through  4.5-4  are  examples.  These 
figures  are  plots  of  maximum  allowable  bit  rate  R (OOK)  as  a function  of  link  length  (or 
repeater  spacing)  L.  Note  that  excess  loss  ! discussed  in  Section  4.3  is  a parameter. 
The  other  parameters  used  to  generate  the  curves  are  listed  on  each  figure. 
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Figure  4.5-1  is  for  the  case  of  an  LED  transmitter,  step  index  fiber  (ct  = 25) 

i 

and  APD  receiver  (at  optimum  gain).  Data  from  Figure  4.3-2  is  used  to  calculate  the 

15 

dispersion  limited  bit  rate  from 


RDL  = °'2/at  (4.5-1) 

In  the  figure,  the  oblique  lines  represent  while  the  near  vertical  lines  show  the  loss 
limited  bit  rate,  R^.  The  design  trade  between  excess  loss  and  increased  information 
capacity  is  well  illustrated  here.  With  no  excess  loss,  a maximum  bit  rate  of  11  Mb/s  at 
2.5  km  is  allowed  whereas  with  f = 10  dB/km,  65  Mb/s  at  2.5  km  is  allowed. 

Figure  4.5-2  shows  the  case  of  an  LED  transmitter,  graded  index  fiber 
(a  = 2.04)  and  APD  receiver  (at  optimum  gain).  Here,  intermodal  dispersion  is  negligible 
and  as  a result,  excess  losses  do  not  increase  system  bandwidth.  Obviously,  for  this  type 
of  system,  one  would  not  want  to  induce  excess  losses  to  increase  information  carrying 
capacity. 

Figures  4.5-3  and  4.5-4  are  for  an  ILD/APD  transmitter-receiver  combination 
with  a step  (a  = 25)  or  graded  (a  = 2.04)  index  fiber,  respectively.  Note  that  for  both 
cases,  excess  loss  contributes  to  increased  information  carrying  capacity.  However,  for 
the  graded  fiber  case,  note  that  the  / = 10  dB/km  case  does  not  significantly  increase 
the  capacity  over  the  = 6 dBA™  case.  This  is  because  at  l = 6 dBAm,  the  system  is 
already  near  the  intramodal  dispersion  limit  and  reducing  the  intermodal  dispersion  further 
does  not  significantly  reduce  the  total  dispersion.  Thus,  it  appears  that  if  the  designer 
wishes  to  induce  mode  coupling  effects  in  order  to  increase  information  capacity,  i ^ 6 
dBAm  's  maximum  desired  excess  loss  for  this  particular  situation. 

Unfortunately,  the  above  discussed  figures  are  not  general  design  curves 
because  specific  components  were  assumed  which  may  not  correspond  to  those  selected  by 
other  designers.  However,  the  curves  are  approximately  general  in  that  other  components 
are  not  radically  different  from  those  assumed.  Therefore,  these  curves  give  the  designer 
insights  into  the  potential  information  capacity  of  optical  fiber  data  transmission  systems. 
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METRIC  SYSTEM 


BASE  UNITS: 

Quantity  Unit  SI  Symbol  FotmuU 


length 

metre 

m 

mass 

kilogram 

kg 

time 

second 

s 

electric  current 

ampere 

A 

thermodynamic  temperature 

kelvin 

K 

amount  of  substance 

mole 

mol 

luminous  intensity 

candela 

cd 

SUPPLEMENTARY  UNITS: 

plane  angle 

radian 

rad 

... 

solid  angle 

steradian 

•r 

... 

DERIVED  UNITS: 

Acceleration 

metre  per  second  squared 

m/s 

activity  (of  a radioactive  source) 

disintegration  per  second 

(disintegration  )/s 

angular  acceleration 

radian  per  second  squared 

rad/s 

angular  velocity 

radian  per  second 

rad/s 

area 

square  metre 

m 

density 

kilogram  per  cubic  metre 

kg/m 

electric  capacitance 

farad 

F 

A-s/V 

electrical  conductance 

siemens 

S 

A/V 

electric  Field  strength 

volt  per  metre 

... 

Vim 

electric  inductance 

henry 

H 

V-s/A 

electric  potential  difference 
electric  resistance 

volt 

ohm 

V 

W/A 

V/A 

electromotive  force 

volt 

V 

W/A 

energy 

joule 

1 

N-m 

entropy 

joule  per  kelvin 

1* 

force 

newton 

N 

kg-m/s 

frequency 

hertz 

Hz 

(cycle)/. 

illuminance 

lux 

•» 

lx 

Im/m 

luminance 

candela  per  square  metre 

... 

cd Im 

luminous  flux 

lumen 

Im 

cd-sr 

magnetic  field  strength 

ampere  per  metre 

A/m 

magnetic  flux 

weber 

Wb 

Vs 

magnetic  flux  density 

tesla 

T 

Wb/m 

magnetomotive  force 

ampere 

A 

power 

watt 

W 

j/a 

pressure 

pascal 

Pa 

N/m 

quantity  of  electricity 

coulomb 

C 

A-s 

quantity  of  heat 

joule 

1 

N-m 

radiant  intensity 

watt  per  steradian 

W/sr 

specific  heat 

joule  per  kilogram-kelvin 

J/kg-K 

stress 

pascal 

Pa 

N/m 

thermal  conductivity 

watt  per  metre-kelvin 

Wlm-K 

velocity 

metre  per  second 

... 

m/s 

viscosity,  dynamic 

pascal-second 

Pa-s 

viscosity,  kinematic 

square  metre  per  second 

m/s 

voltage 

volt 

V 

W/A 

volume 

cubic  metre 

m 

wavenumber 

reciprocal  metre 

(wave)/m 

work 

joule 

i 

N-m 

SI  PREFIXES: 

Multiplication  Factors 


I’rof  I* 


SI  Symbol 


1 000  000  000  000  - 10'* 

tera 

1 

1 000  000  000  = to* 

gig* 

t; 

1 000  000  = 10* 

mega 

M 

1 000  = 10’ 

kilo 

k 

100  » 10' 

hecto* 

h 

10  - 10’ 

delta- 

da 

0.1  - 10-' 

decl* 

d 

0.01  - 10-' 

i;cntl- 

c 

0.001  « 10-> 

milli 

m 

0 000  001  - 10-* 

micro 

M 

0.000  000  001  - 10-* 

nano 

n 

0.000  000  000  001  = 10- '» 

pico 

P 

0 000  000  000  000  001  * 10-'* 

lemlo 

f 

0.000  000  000  000  000  001  » H)-'* 

alto 

a 

* To  be  avoided  whore  possible 


i $ 

5 

5 MISSION  5 

\ of  5 

ft  Rome  Air  Development,  Center  v 


Rflnc  plans  and  conducts  research,  exploratory  and  advanced 
development  programs  in  command,  control,  and  communications 
(C3)  activities,  and  in  the  C3  areas  of  information  sciences 
and  intelligence.  The  principal  technical  mission  areas 
are  communications,  electromagnetic  guidance  and  control, 
surveillance  of  ground  and  aerospace  objects,  intelligence 
data  collection  and  handling,  information  system  technology, 
ionospheric  propagation,  solid  state  sciences,  microwave 
physics  and  electronic  reliability,  maintainability  and 
compatibility. 
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